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The author, Melbourne-born Tim Hartnell, 
first met Dick Smith in London in the late 
seventies while Dick was on a trip to buy the 
helicopter which he used for his record- 
breaking world solo flight. 





The two kept in touch, and after Tim's return from the UK at the end of 1982, Dick called 
him one day and asked him to come up to Sydney to see a new product which Dick Smith 
Electronics had developed. It was the VZ200, the forerunner of the VZ300. Tim was 
impressed with the machine and its potential, and rang the editor of Australian Personal 
Computer about it. The editor decided the launch of the VZ200 was sufficiently important 
to change, at the last minute, the proposed cover of the next issue of the magazine, and 
replace it with a photograph of the VZ200. Tim's review of the computer was the lead story 
in that issue. 


Tim and a couple of authors who had worked with him previously on books published by 
Tim's company, Interface Publications, then wrote three books on the VZ200, which were 
distributed exclusively through Dick Smith outlets. The feedback on those books was 
extremely positive, so it was decided that the VZ300 also deserved dedicated books, such as 
the one you are reading now. 


Tim Hartnell originally left Australia in the middle of 1977 for the UK for what was planned 
to be a six month's working holiday. He finally stayed for nearly six years, and while in 
London founded his company, Interface Publications, which now has offices in London, 
Melbourne and New York. Tim has written fifty or so books (he says he doesn't know the 
exact number), predominately on computers and related subjects, and they have been 
translated into eleven languages. 


Although he now makes his home in Melbourne, he travels back to the USA and the UK two 
or three times each year to keep in touch with developments in the computer field. “It gets 
harder to leave each time," he said recently, "Australia is really the only country I ever want 
to live in. And with developments like the VZ300, it makes sense professionally, as well as 
personally." 
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Once upon a time, before the VZ300, it was not easy to write and play 
games with computers. Back in the dim, dark past, it could cost you $80 to 
$100 an hour just to rent access to a time-shared mainframe via a 
terminal. And the only output you had was on the printout of a noisy, 
hard-to-read teleprinter. Think what those restrictions would have done to 
your current pattern of spending hours lovingly debugging, and improving, 
your latest masterpiece. 

We, fortunately, do not have to suffer such medieval conditions. The 
luxury of having a VZ300 of your own, driving a TV screen, with 
unrestricted access to the machine, allows you to work for as long as you 
like creating games and other programs. 

In this book, you'll find a collection of my favorite VZ games. I hope 
some of them will soon be up and running on your computer, and are 
stored with your own favorite programs. They're sure to provide you with 
a lot of fun in the weeks ahead. I've tried to produce a set of games which 
will provide varied entertainment, to cater to your game interests, 
whatever they may be. 

Гуе deliberately written the book so that it is “open-ended”. That is, 
in contrast to many other collections of games programs on the market, 
Гуе assumed you'll want to adapt and improve the programs once you get 
them up and running on your Dick Smith computer. Therefore, with many 
of them I've included program breakdowns, some line by line, so you know 
what each section of code is doing. As well, the introduction to each 
section discusses a bit about the philosophy of writing games of that type, 
has a word or two to say about the basic algorithms which you can use to 
create games of that sort yourself, and generally aims to give you a solid 
background against which you can expand and develop your own game- 
writing skills. | 

To maximize the length of program you can get into your VZ300 
(and to keep program entry'time down to a minimum) few of the programs 





























include instructions. These аге іп the text. However, if you һауе (һе 

inclination you can easily add a “Do you want instructions” line as part of 

the initialization subroutine, and then include a shortened form of the 

instructions from the text in your program. 
| Гуе followed structured programming techniques іп all programs 
| | which lent themselves to that approach. You may well find, as I did when I 
| actually decided to put all the advice Га read in books and articles into 
action, that working in a “top down" manner made writing and modifying 
programs a much simpler, and more precise, activity than it had been 
before. As a bonus, it is much easier to get a program up and running when 
| it's written this way. Most importantly, you can get to the fun parts 

—actually running the thing — much more quickly. x 

x I think we should get to the fun parts immediately, so turn on your | 
| VZ300. | 
| Good game-playing! 
| 
| 


Tim Hartnell, 
Melbourne, 1986 
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Down into the depths of darkness you go. Armed with only your com- 
er and your keen mind, you have decided to take on the forces of 
| | evil. Р 
| 1 You тау be оп а desert island, inside а haunted house, within a 
| | dungeon deep within the bowels of the earth, or trapped in a cave 
system on a planet "somewhere in a galaxy far away." 

Adventure games take place in all these scenarios, and a thou- 


sand more beside. Come with us now, as we discover the excitement 
of the worlds of ADVENTURE. 


| The word adventure is used to describe the class of computer 
г games іп which the player moves through ап alternative reality. Іп 
| | this “otherworld” there are monsters to be fought, treasures to be dis- 
covered, maps to be made, and puzzles to be solved. 

Many people feel that adventure games are the most exciting 
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games which can be played with a computer. If you are interested in | a handsome prince trapped within a tower. The adventures given in 


role-playing games like TSR Hobbies’ Dungeons and Dragons (the this book are by no means as elaborate as some of the ones offered for 
| game апа пате аге registered trademarks of TSR), then you're cer- sale for your computer, but they are more carefully and consistently 
| tain to enjoy playing adventure. | organized than many I have seen, and—as a bonus—give you frame- 
| One feature of ние adventure games is that the reality they works within which you can construct adventure programs of your 
||| model is consistent. That is, the world created within the adventure | own. 
||| ргортат 18 зона, and—-apart from any events specific to that game, | 
| such as ап earthquake, ог а magic spell—the parts of the world do not 
shift in a random fashion. If you walk past a “gnarled and twisted oak, 





Role-playing games which involve other people, such as TSR's 
Dungeons and Dragons which I mentioned earlier, generally have a 
great deal of flexibility in development as a game proceeds. Under the 


| with the initials of your best friend carved in the trunk” when going | control of a good Dungeon-master, a role-playing game can develop 
| || down а certain woodland park, the same oak should still be there | and evolve in directions which he or she had not even imagined when 
| | | when you return. In a properly constructed adventure the rivers stay | setting up the initial scenario. Unfortunately, computer role-playing 
пара | іп place, {һе dungeon walls do not mysteriously move and shift every i games cannot be so flexible. In many ways when playing adventure 
Lu li | time you turn your back, and objects you put down in one cave within | with а computer, you are trying to solve a puzzle, or series of them, 

та | ап underground labyrinth do not suddenly appear of their own voli- which the programmer has created. The computer can be used to help 


tion a hundred caves away (unless, of course, they've been blessed set up the initial scenario and determine where objects will be located, 


with some form of magical auto-transportation). and perhaps where a particular stairwell will lead, but the overall 


| | lights. Working your way through an imaginary (but self-consistent) 18 written. 


s P | | Map-making is one of the true adventure-player's skills and де- | shape of the environment is fixed by the programmer when the game I 
UM | | 
bus | environment, tackling monsters and collecting treasures, solving You can see this in action, for example, in our program | 
Xm ІТ puzzles as you ро up and down staircases and chutes, exploring side STRONGHOLD OF THE DWARVEN LORDS, where you have to 
| | tunnels, getting lost in self-circling mazes, and so on, is only fascinat- Work your way through a maze to discover where the Dwarven trea- 
|||| | Ing if the world you аге exploring is mappable. You should, for exam- | sure 15 stowed. Тһе computer actually hides the treasure, and modi- 
| | ple, Бе able to expect both ends of a tunnel to always emerge in the T fies the ‘3-D maze’ to some extent, but that is all. Of course, the 
I same spots, so when you come across one entrance to that tunnel later || computer is also used to produce the feedback to the player as the 
| | | on in a game from a different position, you will have a new, useful Í . game is underway, and its role there is very valuable. | 
| | || | clue to further flesh ош your map of the environment. | Once upon а time, war campaigns were reenacted on table tops. | 
M Role-playing is part of life. There are sure to be many situations Í Napoleonic battles were fought and won on large sheets of card | 
| in your everyday activities when you, to some extent, are forced to | marked with rivers and woods, as players reenacted major engage- 


|| ments within wars, ог created their own. Wargamers found the plea- 
| sure of the games they played could be increased if attention were 


the enthusiasm you project each day to customers and fellow-workers | paid as much (if not more) to the individuals they were fighting with, 1 
| Were your own, inner enthusiasms, and so on. You may well find that rather than just with squads of soldiers. This attention to individual | 
l in new situations, you have learnt to mask your lack of ease by acting identity lead directly into the role-playing games we have today, as 
M Magari and at pue discovering that—if you do it skillfully—peo- er Dee how rewarding it was to take on the role of a раг- 
рге taxe the projected role as if it were your true self. ticular leader. 
||| Тһе role-playing which takes Bee ae th pA ginary environ- | Our Dungeons and Dragons developed directly from the war 
| ments of an adventure game is far more interesting, and is generally | games where players took on the identities of individuals within бар 
| far removed from the self of your everyday life. Whe: ' tles. Two gamers, Dave Arnson and E. Gary Gygax, decided to codify 
е! about it, even playing games like "Cops p Ki Im sue al an entirely separate reality, which they initially gave to the world in 
in role-playing. ANS 1 1974 as a boxed set of three booklets under the title Dunéeons and 
So we've all had experience in role-playing, even if some of it ] | Dragons. The game became an enormous success, and now hundreds 


Was not as much fun as taking part in long-range campaigns to rescue of thousands of people spend a significant. portion of their leisure 
plunging into the depths of the earth, as clerics, trolls, magicians, and 


adopt a role. Most jobs, unfortunately, expect you to behave as if the 
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sorcerers, exploring, fighting, conquering—and occasionally dying— 
as they go. 

The original D & D idea soon spawned a host of other games, 
such as Runequest (Chaosium Ltd, Albany, California), Bushido and 
Chivalry & Sorcery (Fantasy Games Unlimited, Roslyn, New York), 
Tunnels & Trolls (Flying Buffalo, Inc., Scottsdale, Arizona), Traveller 
(Game Designers Workshop, Bloomington, Illinois) and Heroes of 
Olympus (Task Force Games, Amarillo, Texas). 

Will Crowther and Don Woods entered computer history in 1976 
by putting the world's first role-playing game—just called ADVEN- 
TURE-—onto a mainframe computer at Stanford University. (The 
program was actually written by Crowther, and elaborated by Woods, 
although today both men are generally credited with developing the 
program.) Although the game quickly became a cult-pursuit all over 
America, the floodgates to computer adventure-gaming did not open 
until microcomputers put machine-power—and computer time——into 
the hands of millions. Cheaper memory enabled extremely elaborate 
adventures to be created, and so now the computer adventure gamer 
is extremely well served. | 

Crowther and Woods perhaps created better than they knew. 
Even today, despite the multitude of programs available, the original 
ADVENTURE is still going strong. At least five companies at present 
are selling versions of the original ADVENTURE for the Apple alone. 

This original program was written in Fortran, and when it was 
added to a free software-exchange library (Decus) organized by the 
Digital Equipment Computer Users’ Society (most of whom used 
Dec's PDP-11 systems), it soon became the most-used program in the 
library. Two years later, another adventure program, DUNGEON, 
was added to Decus. This program, which took the ADVENTURE 
idea much further than Crowther's program, was written by Tim An- 
derson, Marc Blank, Bruce Daniels, and Dave Lebling, all of the Pro- 
gramming Technology Division of the MIT Laboratory for Computer 
Science. 

One of the leading companies in the world producing adventure 
programs is Adventure International, founded by Scott Adams. His 
company has some of the most imaginative displays at computer 
shows of anyone in the games software field, and it is good to know his 
programs are as exciting as his show displays. Make sure you experi- 
ence the pleasure of playing a Scott Adams adventure program in due 
course, and you'll see how far the genre has been extended. 

_ I met Scott in Atlanta one day at a computer show and found him 
friendly, quiet, and reserved. Somehow, I'd expected him to be like a 
warlock from one of his dungeons, or a dragon from one of the cave 


systems. However, some behavior was more in keeping with my ex- 
pectations. It was Halloween, and Scott and his crew were all dressed 
to the nines as characters out of some of the programs. The same 
approach to life which had him tell his staff to come to work in fancy 
dress permeates his programs. Start with the programs here, which 
are much simpler to solve than programs such as Scott's, and then 
graduate to the commercial programs. Perhaps his program Adven- 
tureland would be a good place to begin, before you move on to some 
of his other games, and on to those produced by other companies. 
Avalon Hill's program Empire of the Over-Mind is another of the 
classics of the field, and this—as well as Sentient Software's Cyborg 
deserve inspection. The list could go on and on, and certainly new 
titles have been added to the programs now available, so your com- 
puter magazines and/or your local gamer and computer clubs would 
be a good place to find out just what else is around for you and your 


computer. 


І guess it's time now to introduce you to the adventure programs 
in this book. If you'd like to know more about the field, to help you 
write your own programs, there is a vast body of literature which is of 
interest. It includes: 


"Putting Adventure in Adventure Games," article in Creative 
Computing, August 1981, by Robert Plamondon. 

"Graphic Adventures on the Atari," article in Creative Comput- 
тв, August 1982, by John Anderson. 

"Fantasy Games" (parts one and two), articles in Creative Corn- 
puting, issues of March 1981 (part one) and May 1981 (part two) by 
David Lubar. 

"Adventure Writing," this is an immensely valuable 16-page 
booklet, distributed by Aardvark-80, 2352 S. Commerce, Walled 
Lake, MI 48088 [(313) 669-3110] for around $5.00. It explains the 
whole background of adventure game writing, and includes a com- 
plete adventure program, Deathship. If you read nothing else in the 
field, you should get hold of this booklet if you really want to discover 
how to write adventure games. 

Fantasy Role-Playin$ Games, by J. Eric Holmes (Hippocrene 
Books, Іпс., New York, 1981). 

What Is Dungeons апа Dragons?, by John Butterfield, Philip 
Parker, and David Honigmann (Penguin Books, New York, 1982). 

Dicing with Dragons: An Introduction to Role-Playing Games, by 
Ian Livingstone (Routledge & Kegan Paul, London, Melbourne, and 
Henley). 




















-STRONGHOLD ОҒ 
THE DWARVEN 
LORDS 


Deep beneath the earth you go, far into the Dwarven Heartland. 
Danger is on every side as you descend, but your greed draws you on. 
Searching through the dusty stacks of uncatalogued manuscripts in 
room 546B of the British Museum, you came across a faded, and 
almost illegible map to a Dwarven hoard of gold, and since that day, 
| you have been obsessed with the idea of finding it. 
| Ав you go down into the labyrinth, you realize that the Dwarven 
| Lords, who secreted the gold here 7389 years ago, have long since 
become extinct, so the main danger you face is from the layout of the 
cavern system itself, rather than from Guards of the Stronghold. 
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Іп STRONGHOLD ОЕ THE DWARVEN LORDS you аге іп а 
cavern which holds the gold. Each time you play this game, the gold 
can be in one of three places. The only information you get as to your 
progress is information provided by the Dwarven Source Beam which 
you found as you made your way into the cave system. This gives you 
feedback after each move as to the location of the gold, but you need 
to learn how to interpret the information it gives you before you'll be 


able to make much use of it. 
The other information you get is in the form of a straight state- 


ment regarding the directions you can move from your present posi- 
tion. After each move (“step”), you'll be given a screen display like 


the following: 
STEP NUMBER 49 


NORTH: WALL 
SOUTH: ОРЕМ 
EAST: WALL 
WEST: OPEN 


THS DWARVEN SOURCE BEAM READS 10 


Then you'll be asked to enter the direction you want to move, as 
follows: 


WHICH DIRECTION DO YOU WANT 
TO КОУЕ? 


N - NORTH, S - SOUTH | 
EA SEAST ` WEST, H — HELP 


You will not, as you probably realize, be allowed to walk through 


walls. 





The aim of the game, needless to say, is to reach the Dwarven 
riches as quickly as possible. To aid you, there is a map of the cavern 
system from above, which you can call up from time to time. The map 
looks like this (with the walls shown as # symbols, and you shown 
as %): 


NORTH 

ІННІНІНЕІННІҢНІНІЕІНІҢНІЕ 
#0900. іі 
## ЧН # 
ір түт оныны 
#2 Фра? $04 
# # PST DES 
НАНЫНЫН “Ë # 
ФЕРЕ #02: ú d 


ff % + ### 
үй НН ў 
#1 FE 60400 


FEFEFE dS до. 
ее? ров 


# # # # 
# НН НННННН НН 
SDUTH 


There are two catches to calling up a map of this type. First, 
although your position is shown, the location of the gold is not. Sec- 
ond, each time you enter “Н” to get a look at the map, you'll be 
penalized 15 steps. Therefore, it is in your interests to use the Help 
option as few times as possible. 

; The output of the program, as it is given in terms of the direc- 
tions you can take from your present position, could be modified to 
produce a “3-D maze" output. You know, from move to move, which 
direction you're facing, and the computer knows which directions 
from that position represent possible moves. You would need to add a 
subroutine which drew a picture of the situation immediately in front 
of you, choosing from a bank of pictures (one with the area straight in 
front of you clear but with the walls solid on either side of you, an- 
other with entrances to the right and to the left but with the path 
straight ahead blocked off, and so on) to produce a continuous picture 


of the scene ahead. This can be most effective, and may well be worth 


implementing on your system. 
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Now, here is the listing of STRONGHOLD OF THE DWARVEN 
LORDS so you can start trekking for gold: 


10 REM STRONGHOLD OF THE DWARVEN LORDS 
20 GOSUB 640 

30 GOSUB 480 

40 REM ин 

50 М=М+1:1Е M)150 THEN GOTO 960 

60 CLS: PRINT: PRINT 

70 PRINT "STEP NUMBER"M 

80 PRINT 

90 PRINT"NORTH: "; 

100 IF A(D+1,E)=S THEN PRINT"OPEN" 

110 IF А(0+1,Е) =Х THEN PRINT"HALL' 

120 PRINT "SOUTH: "; 

130 IF A(D-1,E)=S THEN PRINT"OPEN' 

140 IF A(D-1,E) 2X THEN PRINT"WALL' 

150 PRINT "EAST: *; 

100 IF A(D,E+1)=5 THEN PRINT"OPEN" 

170 IF A(D,E+1)=1 THEN PRINT*WALL" 

180 PRINT "WEST: "; 

190 IF A(D,E-1)=S THEN PRINT*OPEN 

200 IF A(D,E-1)=X THEN PRINT"WALL 

210 PRINT 

220 PRINT*THE DWARVEN SOURCE BEAM READS"; 
230 PRINT 1008489 (7-0)+108486 (Y-E) 

240 REM ИИ 

250 PRINT 

260 PRINT*WHICH DIRECTION DO YOU WANT" 
270 PRINT"TO MOVE?" 

280 PRINT:PRINT"N-NORTH, S-SOUTH" 

290 PRINT"E-EAST, W-WEST, H-HELP" 

295 1$=INKEY$ 

500 A$=INKEY$:IF AS="S"ORAS="N"ORAS="E"ORAS="W"ORAS="H" THEN 310 
305 8070 300 

310 IF A$="N" AND A(D+1,E)=X THEN 300 
320 IF А$=*5* AND A(D-1,E)=X THEN 300 
330 IF A$="E" AND A(D,E+1)=X THEN 300 
340 IF AS="W" AND A(D,E-1)=X THEN 300 
350 IF A$="H* THEN GOSUB 480 

360 IF AS="N* THEN DzDH 

370 IF A$="S" THEN 0-0-1 

380 IF A$z"E" THEN Е=Е+1 
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390 IF A$="W" THEN EsE-1 

400 IF 1=D AND YsE THEN 430 

410 6070 50 

420 КЕП 

430 PRINT:PRINT'YOU FOUND THE DWARVEN RICHES" 

440 PRINT'IN JUST'N"STEPS!* 

450 60SUB 500 

460 INPUT "ANOTHER GAME(Y/N) ";N$:IF LEFTS(NS,1)="N" THEN END 

465 IF LEFT$(N$,1)="Y" THEN RUN ELSE 440 

470 ЕКИ 

480 REM HELP 

490 (15 

500 PRINT 

510 PRINT*NORTH" 

520 FÜR 8-15 TO 1 STEP -1 | 
530 FOR (-1 TO 15 | 
540 IF A(B,C)=X THEN PRINT"#"; 

550 IF B=D AND C-E THEN PRINT'1*::60T0 570 

560 IF A(B,C)=S THEN PRINT" >; 

570 NEXT C:PRINT:NEXT В 

580 PRINT*SOUTH" 

590 М=М+15 

600 FOR 951 TO 2000:NEXT J | 
610 CLS:A(D,E)=5 | 
620 RETURN | 
630 ВЕК | 
640 CLS | 
570 (15 | 
680 DIM A(15,15) | 
590 B=RND13) | 
700 1-14:Ү- 4 | 
710 IF B=2 THEN Y= | 
720 IF 8-3 THEN Z= 
730 Y21:522 

740 FOR В=1 TO 15:Е0К C=1 TO 15 

750 A(B,C)2Y: ЈЕ RND(10)38 THEN A(B,C) 5 

760 IF C<2 OR C^14 OR В<2 OR 8314 THEN A(B,C)=X 
770 NEXT C,B 

780 D=2:E=2 

790 FOR F=1 ТО 68 

800 READ B,C 

810 А(В, С) <6 

820 NEXT Е 


2 | 
2 | 


21 











22 


830 M=-15 

B40 RETURN 

B50 ни 

860 DATA 2,2,2,5,2,4,2,5,2,1,2,7 

870 DATA 3,7,4,7,5,7,5,6,5,5,5,4,5,3,6,3 
880 DATA 7,3,7,4,7,5,7,5,7,7,7,8,7,9,9,8 
890 DATA 9,9,10,8,10,7,10,6,10,5,10,4,8,8 

900 DATA 10,3,11,3,12,3,13,3,14,3,14,2,7,10 

910 DATA 5,10,5,10,4,10,3,10,2,10,2,11,2,12 

920 DATA 2,13,2,14,6,11,6,12, 6, 13,6, 14, 7, 12 

930 DATA 14,12,8,12,8,14,9,12,9, 15, 9, 14, 10,12 

940 DATA 11,9,11,10, 11,11, 1, 12, 12,9, 13,9, 15, 10 

950 DATA 13,11,13,12,13,13,12,14, 14, 14 

940 SOUND 8,6:SOUND 4,6:SOUND 4,8:FOR 251 TO 1000:NEIT J 

970 PRINT:PRINT:PRINT "AFTER"M"STEPS,YOU HAVEN'T BEEN" 

980 PRINT "ABLE TO FIND THE DWARVEN":PRINTTAB(10) ; “TREASURE! !' 
990 PRINT "SHANE ON YOU..." 

1000 GOSUB 500:FOR 1-1 ТО 2000:NEXT:END 
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| | SHADOW THIEVES 


Next we have an adventure program which creates its own, stable 
map. That is, the map does not change within a game, but is totally 
different from game to game. The game takes place underground, in a 
maze of 20 caverns connected by tunnels. 

Although the number of possible combinations is not infinite, it is 
so huge (approaching the number of atoms in the universe) you would 
be unlikely to ever strike the same cavern system in your lifetime. 
However, the lack of true randomness in your random number gener- 
ator diminishes the total number of caverns you may visit, although 
you are unlikely to stumble across the same one more than once. 








CAVERN OF THE SHADOW THIEVES takes place in a very 
odd environment. You are within the maze of 20 caverns, trying to 
get to cavern number 20. Each cavern has four, and oniy four, tun- 
nels leading from it to other caverns. Some of the tunnels are one- 
way, while others allow you to travel back and forth. 
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Several of {һе tunnels will contain rare treasure, such ав spar- 
kling amulets and platinum shields. You can carry up to four items at 
a time. Other caverns are the homes of unusual inhabitants, such as 
gruesome gnomes and zany zombies. Each inhabitant will demand a 
toll of a particular item. If you are carrying the item, the inhabitant 
takes it from you and allows you to pass. The inhabitant also disap- 
pears after being bribed, dropping the bribe, so you can revisit that 
cavern later and pick up the object again if you like. 

You should make a map as you work through the cavern system. 
This way, you'll know for example that cavern number five contains a 
crazy centipede who wants a magic scroll, so that you can travel 
safely through cavern five as soon as you manage to pick up a suitable 
scroll. The interconnections between the caverns, as I said, do not 
change within a particular game so you can build your map with some 
confidence. Note that certain caves contain magic transportation spells 
which will move you at random within the cavern system. 

The only goal of this game is to get to cavern number twenty, 
and you'll find the output from the program will assist you in this task, 
reporting your position and possessions constantly: 


PLEASE STAND BY AS I CONSTRUCT THE CAVE... 
x 
* 

Ж 

Ж 





ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖ 
TIME REMAINING: 49 

YOU ARE IN CAVERN 1 

TUNNELS LEAD TO 4 , 5 » 7 AND 2 


WHERE DO YOU WANT TO GO? 4 
ЖЖЖЖАЖЖЖХЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


TIME REMAINING: 48 


YOU ARE IN CAVERN 4 
YOU HAVE COME FROM CAVERN 1 


TUNNELS LEAD TO 6, 8 , 2 AND 1 


WHERE DO YOU WANT то GO? 8 
FICO OOOO COO OOOO OR OOK Kx 


TIME REMAINING: 47 


YOU ARE IN CAVERN 8 
YOU HAVE COME FROM CAVERN 4 


THE CAVERN CONTAINS а COPIER HEADBAND 


DO YOU WANT IT (Y OR N)? 
ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖАЖАЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


TIME REMAINING: 44 

YOU ARE IN CAVERN 8 

YOU HAVE COME FROM CAVERN 4 
YOU GRE CARRYING: 

1 ~ СОРРЕК HEADBAND 


THERE IS A TERRIBLE TOAD HERE, WHO 
WANTS A PLATINUM SHIELD TO LET YOU FASS 


YOU MUST RETURN TO 4 





В | YOU HAVE COME FROM CAVERN 18 YOU HAVE MADE IT: 
B YOU ARE CARRYING: | 

= | | COPPER HEADBAND 3 YOUR CAVERN-MASTER RATING IS 7158 
m" 2 ~ SPARKLING AMULET x ka А e AN 

a X - PLATINUM SHIELD j,GUERER HEADBAND 

a SPARKLING AMULET 


PLATINUM SHIELD 


|| THE CAVERN CONTAINS а MAGIC SCROLL MAGIC SCROLI 


DO YOU WANT IT (Y ОК М? 
ЖИЖИ Here's the listing to allow you to make your own discoveries 
within THE CAVERN OF THE SHADOW THIES : 
TIME REMAINING: ЖО W THIEVES 
10 REM CAVERN OF THE SHADOW THIEVES 


YOU ARE IN CAVERN 15 | оо REM FOR VZ 200 
YOU HAVE COME FROM CAVERN 18 | ло DIM а(20,4) „КФ (4) „ВФ(20),СФ(2О) „ПЪ(2О), 
YOU ARE CARRYING: | Et C20) „ЕФ C20) 
і ~ COPPER HEADBAND | 40 COLOR 2,1:CL3 | 
~ - SPARKLING AMULET | 45 COLOR (1+RND(S)),0 
= - PLATINUM SHIELD | во GOSUB 1150: КЕМ BUILD CAVERNS 
4 - MAGIC SCROLL I 60 GOSUE 1050: КЕМ FILL ARRAYS 
70 GOSUB 920:REM ALLOT INHABITANTS/GOODIES 
| x во О=50: КЕМ TIMER 
THERE IS А WEIRD WEREWOLF HERE, WHO | 20 Ү=1: Х=0 
WANTS А SPUNETRUM COIN TO LET YOU FASS 100 COLOR 2,1:CLS 
| | 110 REM ЖЖЖЖЖЖ MAJOR GAME CYCLE ЖЖЖЖЖЖ 
YOU MUST RETURN TO 18 120 GOTO 230 | 
ЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ T 150 PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ" | 
1 140 Q-Q-1:IF 051 THEN 880 | 
TIME REMAINING: 29 | 150 PRINT:FRINT "TIME REMAINING:";G | 
Т 160 PRINT:PRINT ТАВ СКМЮ (5) ) ; "YOU ARE IN CAVERN": Y | 

YOU ARE IN CAVERN 18 | 170 IF X50 THEN PRINT "YOU HAVE COME FROM CAVERN"sX | 

YOU HAVE СОМЕ FROM CAVERN 15 | 180 IF (1) =" "АМРЕ (2) =""ANDRS C3) =" " 

YOU ARE CARRYING: ANDRE (4) =" "ТНЕМ 190 | 
1 ~ COPPER HEADBAND | 185 PRINT "YOU ARE CARRYING: " | 
2 ~ SPARKLING AMULET | 190 7-1 5774 
x - PLATINUM SHIELD | 200 IF КФО) У" "ТНЕМ PRINT Zi" — "R$ (Z) 

4 ~ MAGIC SCROLL an 210 IF Z4 THEN Z=Z+1:GOTO 200 
EN 220 RETURN 
TUNNELS LEAD TO 15 , 16 , 20 AND 19 | 230 GOSUR 130 
| 240 IF (ЕМ(ЕФ(Ү))чО THEN 430 
WHERE DO YOU WANT TO GO? 20 | 250 PRINT:PREINT'"THE CAVERN CONTAINS А": РКТМТ F$ CY) 


260 IF ІМКЕҮФ<>"" THEN 260 
||| | Е 270 PRINT:PRINT "DO YOU WANT IT (Y OR N)?" 
|| | 280 ($= INEE Y: 
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290 
500 
510 


| 320 
|| 330 
| 540 
|| 350 
| 560 
|| 570 
|| 580 
590 
400 
410 


| 
|| 
| ||| 420 
||| | 450 
| | ||| 


440 
450 


WI 460 
|| ||| 470 

| 480 
|| || 490 
ІП “ОО 
ІП 510 
| | 520 
ІТ! | eO 
||| SAO 
S50 
560 
570 
ІШ 580 
SGO 
600 





















610 
аз 

630 
640 
650 
460 
670 
680 
990 
28 


IF ОФ "Үү" AND @%<>"М" THEN 280 
IF Оф="м" THEN 430 muni 
е нон ав (3 = t M Г a 

БА ee UT БАТА ЫЫ OR R#(4)="" THEN 390 
PRINT “YOU ARE CARRYING TOO MUCH" 
INPUT "WHICH ITEM DO YOU WANT TÜ DROP" £ 
IF 521 OR 5>4 THEN 330 
тФ=КФ (5) 
Ré(S) =F (Y) 
F$vYv)z"" 
GOTO 420 
6-1 кашы ра = 
IF RS (G)="" THEN RS(G)=FS СУ) ЕСУ) =" БОТО 420 
IF Gz4 THEN G=GtisGOTO 400 
GOSUB 130 
IF LENtXD$(tY))-zO THEN 600 
ІР ASC(ODBtCY))0-42 THEN 820 
PRINTIPRINT "THERE IS A "0% (Y) 

“РЕТМТ "HERE, WHO WANTS А" 
PRINT ЕФСУ):" TO LET YOU PASS" 
FOR 1=1 TO 8OO:NEXT I 
G1 
IF в (6) -ЕФ(У) AND E$CY)Z2"" THEN 550 
IF Gz4 THEN G=G+1:GOTO 490 
PRINTsPRINT "YOU MUST RETURN T's X 
FOR 1=1 TO 400: МЕХТ I 
Р=х: Хем: Yak 
GOTO 230 
FRINT "AND YOU HAVE IT!" 
FOR 121 TO 800: МЕХТ I 
PRINT "THE "sD#CY¥)s" VANISHES'":D$oY) z"" 
F$506Y»zR$tG) 
КФ (0) =" " 
PRINT "TUNNELS LEAD ТО"; ñ (Y, 1) АСУ 2) 4 

АСУ, 5) g "AND"SACY, 4) 


РЕТМТ: INPUT "WHERE DO YOU WANT TO БО" M 
IF М=о THEN G(-E5: M=RND (14) : БОТО 470 
Gz1 

IF ACY,G)=M THEN 470 

IF 524 THEN G=G+1: GOTO 640 

GOTO 610 

Х=ү 

Y M 

IF Y=20 THEN 710 


700 
y pu 
Ta 
250 
740 
750 


760 


770 


780 
290 
300 
gio 
20 
gio 
gao 
850 
160 
870 
SEO 
890 
900 
210 
920 
9:30 
940 
M) 
960 
770 
980 
900 
1000 
1010 


1020 


1030 
"1040 


GOTO 230 
КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
REM жжжжж SUCCESS xxx 
CLS 
FOR Ісі TO SO:FRINT TABGDOs"x":NEXT I 
РКІМТІРКІМТ "YOU HAVE MADE IT!''":SOUND 7,2 
: SOUND. 8, 1: PRINT 

PRINT "YOUR CAVERN-MASTER RATING" 

SPRINT "ІЗ" 100k (100-8) «2 Ж0 
IF R#(1)="" AND R$(2)="" AND R$(3)="" 

AND К%(4)="" THEN END 

FRINT "YOU GOT OUT WITH: " 
FOR T=1 TO 4sF RINT ТАВ(КМО 67) ) ЕФТ) 


NEXT Т 
ЕМО 
REM xxx ТЕ ЕРОКТАТТОМ «xx 


FOR 1=1 TO 50: РКТМТ ТАВ(І); "kU: NEXT 

X=Y: S0UND 15, 2:SQOUND 10,33: SOUND 17,1 

Уж INI (RND (9) +7) 

GOTO 2.30 

КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

REM ЖЖЖ END "0 THE LINE «xxx 

PRINTsPRINT "SORRY, FRIEND, BUT TIME IS UP" 
END 

КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

REM ЖЖЖ DISTRIBUTE INHABITANTS/GOODIES ЖЖЖ 
FOR Е=1 ТО 16 

F=RND CLE) +1 

РФР) =B$ (КМО €20) ) REM INHABITANTS 

ES (F)=C$ (RND (20)): КЕМ BRIBES 

F=RND (19) +1 

F CF) = С КМО (20) ) : КЕМ CAVERN CONTENTS 

IF RND(10)=5 THEN D#(F)="x":REM TELEPORTATION 
NEAT Е 

RETURN 

КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

КЕМ ЖЖЖ CREATE CAVERNS ЖЖЖ 

PRINT "PLEASE STAND BY AS I 


НТОЕ THE GOODIES..." 


- тағай d = == - 
























RE в 


+ 
л 4% 1 


1050 
1060 
1070 
1080 
1090 
1100 
1110 
1129 
1130 
1140 
1150 
1160 
1165 
1170 
1180 
1190 


1200 


1205 
1210 


1215 


1220 
1250 
1240 
1250 
1260 
1270 
1280 


1285 


1300 


1505 


FOR D=1 TO 20 


READ 
NEXT 


вв CD) 8 PRINT тавр) з "Xx": SOUND D. 
D 


FOR р=1 TO 20 


READ 
NEXT 


СФ (D) 
D 


RE TURN | 
КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ | 
REM ЖЖЖЖ CONSTRUCT CAVERN ЖЖЖЖ 


PRINT "PLEASE STAND BY AS I CONSTRUCT THE CAVE. . 


FOR B=1 TO 20 
PRINT Тав св) 3 "Ж" 
SOUND B, i 
FOR C=1 TO 4 ma 
(E, C) =В+ (RND (7) -RND (6 LC EE | 
IF А(в, С) в OR А‹В,С)<1 OR А(В,С) 220 THEN 1180 


МЕХТ 


С 


SOUND в, 1 yn 
IF ACE, 1)=A(8,2)0R А(В,1)-А(В,50 ОК 


АВ, 1) =А (8,4) THEN 1170 


IF ACB, 2) за (8,5) ОКА(Е, 5) за (8,4) OR 


АВ, 2) =А (8,4) THEN 1170 


IF ЕМО (100) <19 AND B>12 THEN ACE, (RND (4) ) ) ==0 
МЕХТ В 


CLS 


RE TURN 
КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
REM XXX INHABITANTS ЖЖЖ 


DATA 


рата 


DATA 


DATA 


DATA 


DATA 


"HAIRY HOBGOBLIN", "BALD BERSERKER", 
"SKINNY SKELETON" 
"GRUESOME GNOME", "CUNNING CONJURER" 
s "CRAZY CENTIPEDE" 
"DEMENTED DWARF", "SAVAGE SHRIEKER" 
."СКЕЕРТЕ CRAWLIE" 
"ROTTEN RODENT", "TERRIBLE TOAD" 
"STICKY STURGE" 
"GHASTLY GHOUL", "WICKED WEASEL" 
» "LUMPY LEGEND" 
"ZANY ZOMBIE", "CROOKED CRAB" 


v "иватнеш. WRAITH" 


15109 
ева 
1320 


13252 


1330 


1550 


1560 


DATA "WEIRD WEREWOLF". "GIANT GARGOYLE" 

КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

КЕМ ЖЖЖ THE LOOT xxx 

DATA "PIECE ОР COPPER", “SPUNKTRUM COIN", 
"PLATINUM SHIELD" 

DATA "COPPER HEADBAND", "MAGIC SCROLL", 
"FABULOUS POTION" 

DATA "WAND OF HEALING", "SWORD OF FIRE", 
"SPARKL.ING AMULET" 

DATA "WAR HAMMER", "PIECE OF COPPER", 


"SPUNETRUM COIN" 


› DATA "PLATINUM SHIELD", "COPPER HEADBAND", 


“MAGIC SCROLL" 
DATA “FABULOUS POTION", "WAND OF HEALING", 


"SWORD OF FIRE" 


DATA "SPARKLING AMULET", "WAR HAMMER" 








|| THE DUKE OF 
DRAGONFEAR 


5 | | THE DUKE OF DRAGONFEAR puts you into another grid system 
БЕС. | | world, but one which is populated with a range of fearsome pos- 
BED с. ! sibilities including pits containing quicksand ог dragons, as well as 

| И x | magic caves which can transport you at random within the Land of 


Dragonworld, and caves filled with Dragon's gold. 1 


жыл emm іі. 


pem сес”. ааа 





If you're а veteran of computer games, you тау well recognize 

|. |\\\ 4 that THE DUKE ОЕ РЕАСОМЕЕАЕ is а development of (һе Hunt 
| n 4 Ше Wumpus games. Wumpus is one of the grand old standards of 
||| | E computer games, in which you are in a cave system, looking for one or 
|! | more mythical beasts known, іп the singular (and these are most sin- 
| | d gular beasts) as Wumpus. Wumpii, we are assured by those who care 


| DP about such things, is the plural. Anyway, in essence, a grid is set up in 2 








such games, and objects, people, effects, monsters and whatever else 
you choose are placed at locations on the grid. From time to time, if 
you so decide, one or more of the contents of specific cells of the grid 
may move. The human player, of course, can also move from cell to 
cell within the grid. 

Generally, there is no overall visible map of the system, although 
some programs (such as THE DUKE OF DRAGONFEAR) do pro- 
vide such information for players. The very first Wumpus game was 
written by Gregory Yob in 1975. In David Ahl's superb book More 
BASIC Computer Games (Creative Computing Press, Morristown, 
New Jersey, 1979), Mr. Yob explains how he was visiting People's 
Computer Company, in Menlo Park, California, to see the programs 
they were developing, and he noticed there were three "hunt the 
something" programs being written, each оп a 10 Х 10 grid, and each 
of which gave feedback to the player in terms of ^no, по... try to the 
northwest." 

Unenchanted, Mr. Yob returned to a lonely time-sharing termi- 
nal (back in those ancient days, gentle reader, human beings did not 
have little computers at their beck and call) and hammered out the 
program which eventually became the very first "Hunt the Wumpus." 
Mr. Yob had the creature dwelling in a dodecahedron-shaped cave 
system. 

Mr. Yob's inventive genius did not stop at this point. He peopled 
the cave with “magic bats" which moved you from place to place 
within the system at random, with bottomless pits, and ensured that 
the arrows with which you were equipped when you entered the sys- 
tem could fly round corners. 

You can see now how this framework became the heart of the 
Wumpus programs which have proliferated around the world and 
which formed the very rawest framework upon which THE DUKE 
OF DRAGONFEAR is based. This program gives you more control 
on the outcome of the program, adds treasure to the caves, and im- 
poses a time-limit to your game. 

As well, you are equipped with a *magic amulet" which can see 
into the caves which are around you. Unfortunately, because you're 
not much of a whiz when it comes to invoking magic, the old amulet 
doesn't work too well. It can only tell you of the contents of one of the 
eight caves surrounding the one in which you stand, and worse than 
this does not tell you which of the eight it is referring to. It is not as 
bad as it may sound. You'll be surprised at how much use you can 
make of the limited information the amulet provides. As well, you'll 
get a brief glimpse of the cave system from above at the start of the 
game, and from time to time as it goes on. 


1o 
20 
50 
40 
со 
60 
20 
во 


90 


In this map, X represents a wall you cannot pass or a cave you 
cannot enter, H (for human) is you starting in about the center of the 
system, $ is the treasure caves, ? the magic transportation caves, D 
represents dragons, and Q tells you that cave contains quicksand. Ob- 
viously this is a world filled with potential pleasures as well as dan- 
gers. 
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This is the program listing to enable you to become THE DUKE 
OF DRAGONFEAR: 


REM DUKE OF DRAGONFEAR 
GOSUB 1280 
CLS: PRINT: ЕКТМТ: PRINT 
GOSUB 1200 
Q=RND (7) —1 
IF б=0 AND Е< 255 THEN GOSUB 1200 
CLS:PRINT:PRINT:PRINT "DUKE "АФ", YOU ARE IN САУЕ"Е 
IF 620 THEN FRINT "YOU ARE CARRYING  $"G" 

WORTH OF GOLD" 
GOSUB 760 


100 FRINT:FRINT "YOU HAVE"2S-H"UNITS OF CHARISMA LEFT" 
110 PRINT:F RINT "WHAT DO YOU WANT TO DO?" 
120 PRINT "N — MOVE NORTH, S - MOVE SOUTH" 


150 PRINT "E - MOVE EAST, 


W - MOVE WEST" 


140 FRINT "F - FIGHT А DRAGON, 0 QUIT" 14 
150 INPUT 7%: Ино: IFZ$2"N'"ORZS$z"S"ORZS$z"E"ORZS$-"W" 


ORZ$-"F'"THEN160 


155 IF Z$z»"Q" THEN 150 
160 IF Z4-"N"ANDA(E-10)z88 OR Z#="S" AND A(E*1Q) 


=98 THEN 1620 


162 IF Z$-"E" AND A(E+1)=88 OR Z$-"W" AND А(Е-1) 


=88 THEN 1620 


170 IF 2%="0" THEN @=9:GOTO 1170 
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180 
190 
200 
210 
220 
230 
240) 
250 
269 
2270 
280 
290 
ЗОО 
110 
320 
550 
540 
50 
A6 
370 
Ago 
190 
дао 
410 
420 
4:30 
440 


450 
460 
470 
475 


480 
490 


EQ 


giü 
de] 
aot, 

3140 
Ju 
560) 
2570 
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A(E)z46: IF Z$z"N" THEN EzsE-10 

IF Z$="S" THEN E=E+10 

IF 2%="Е" THEN ЕЗЕ+1 

IF Z$="W" THEN EsE-1 

IF Z$="F" THEN GOSUE 950 

IF АЕ) =63 THEN GOSUB 510: КЕМ MAGIC 

ТЕ А(Е)=68 THEN GOSUB 400: REM DRAGON 

IF ACE)=81 THEN GOSUB 550: КЕМ QUICKSAND 
IF А(Е)=56 THEN GOSUB 630: КЕМ GOLD 


HzH-1:IF Hz25 THEN @=9:GOTO 1160 

GOSUB 1610 

GOTO 50 

REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

REM MAGIC 

PRINT:FRINT "DUKE "АФ", YOUVE STUPMEBLED^" 
PRINT "INTO А MAGIC САМЕ, AND NOW YOU^LL." 


PRINT "BE WHISKED OFF ТО ANOTHER CAVE...." 
GOSUB 1610 
ACE) = 46 
E=RND (76) +123 
RETURN 
REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖ 
REM DRAGON 
FRINT "YOU HAVE WANDERED INTO A DRAGONS" 
PRINT "LAIR...START SAYING YOUR PRAYERS" 
GOSUB 1610 
M=RND (10000) /10000: IFMZ,.ZTHENFRINT"IT HAS 

FLOWN AWAY" sRETURN 
IT HAS SEEN YOU" 


IF ACE) =88 THEN 570 


PRINT "ІТ AWAKENS...AND 
GOSUE 1610 

IF М>.849999 THEN FRINT 
IF М>.849999 THEN FRINT 


"BUT IT HAS RECENTLY ERTEN 
"AND 50 GOES БАСЕ ТО 
SLEEP" RETURN 


PRINT "AND NOW IT ATTACKS......" 

GOSUB 1610 

IF M>.95 THEN PRINT "BUT YOU FIGHT EACE....4ND 
WIN": RETURN 

PRINT "GOODBYE DUKE "АФ 

GOSUR 1610:SQUND 1,8:SOUND 1,8:SOUND 1,8 


Qz9:GOTO 1160 
REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖУЖЖЖЖ 
REM QUICKSAND 
FOR Ј=1 TO 12 


FOR К=1 TO J:PRINT " "5: МЕХТ K 


ПОР = 


280 
390 
600) 
& 10 
eo 
30 
440 
550 
бо 
а/о 
680 
690 
700 
710 
720 
750 
740 
790 
760 
770 
780 
70 
BOO 
gio 
320 
330 
840 


goo 


860 
3700 
850 
890 
700 
910 
920 
9350 
940 
PSO 


955 
960 


970 
980 


PRINT "HORRORS. .. QUICKSAND! ": SOUND 31-J,1 
РОК Џеј ТО 100:NEXT О 
NEXT J 
(9 :Hsós:GOTO 1160 
КЕМ ЖЖЖЖЕЖЖЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖ 
КЕМ TREASURE 
== РМО (100) + 100 
FOR J=1 TO 12 
РОК Z-1.TO J:PRINT " "%%МЕХТ Z 
FRINT “TREASURE Тэ Jl" : 
FÜR O=1 TO 150:NEXT Q 
NEXT J! SOUND 16,2: SULUND 18, 2:SOUND 20,2: SOUND 21,5 
GÜSUE 1610 
ЗКІМТІРКІМТ "YOU? УЕ FOUND A HOARD OF" 
РКІМТ:РКІМТ "DRAGON-GOLD, WORTH +"Е 
(5:(5+К 
RETURN 
КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
КЕМ AMULET DETAILS 
Y=] у 
Lx (ЕФР CY) ) 
IF L<>46 THEN 820 
IF Ү<8 THEN Угу+1 СОТО 780 
IF L=46 THEN RETURN 
PRINT "YOUR AMULET SIGNALS THAT" 
РЕМ! "THERE із + 
IF L=88 THEN PRINT 
IF L=65 THEN FRINT 
IF L=68 THEN PRINT 
IF 1:81 THEN PRINT 
IF L=36 THEN PRINT 
ERINT " NEARBY” 
GOSUB 1610 
RETURN | 
КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
КЕМ ATTACK DRAGON 
РКІМТ | 
ARzAR-1:1F AR-Ó THEN PRINT "YOU HAVE USED UP ALL” 
IF AR=0 THEN PRINT " ARROWS..... "1 
GOSUB 1610: RETURN 
"YOU HAVE"AR"ARROWS IN YOUR QUIVER" 


"A SOLID WALL"; 
"A MAGIC CAVE"; 
"А DRAGON"; 
"QUICESAND"; 
"GOLD"; 


FRINT 
55-0 
FRINT "WHICH DIRECTION DO YOU WANT" 
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990 INPUT " 
IF бфе"М" AND A(E-10)-68 THEN SS-1:YT-E-10 
IF 5$-"S" AND А(Е+10) =68 THEN 88-1: YT-E-*10 
IF S#="E" AND A(E+1)=68 THEN S$=1:YT=E+1 
IF S$="W" AND A(E-1)=68 THEN SS=1:YT=E-1 


1000 
1010 
1026 
1020 
1040 
10250 
1055 


1060 
1070 
1080 
1090 
1100 
1110 
1120 
11.50 
1140 
1120 
1150 
1169 


1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 


1500 
1510 
1520 
1550 
1540 
1350 
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PRINT 


TO SHOOT IN (N,S,E,OR М) "159 


IF 65чО THEN FRINT "THERE WAS МО DRAGON THERE. 


IF 55= 


РКІМТ 
PRINT 
PRINT 
GOSUB 


O THEN PRINT "YOU HAVE WASTED AN 
ARROW! ":GOTO 1150 

"WELL DONE, DUKE "АФ 

"YOU HAVE HIT" 

"А FEROCIOUS DRAGON" 

1610 


IF КМО (10) #3 THEN 1140 


PRINT 


FRINT 
FRINT 
PRINT 
БОБОВ 


"YOU KILLED ТТ!!" зА (УТ) 246; Кекмо (100) +100 


"YOU ARE REWARDED WITH ФЕ: б=6+Е: GOTO 1150 
"BUT YOU ONLY WOUNDED IT....." 
1610: RETURN 


IF Н<1 THEN PRINT "ALL YOUR CHARISMA a 


IF Н. 1 ТНЕМ PRINT É = «жн .EXHAUSTED. ым и 


PRINT "YOU HAVE"25S-H"UNITS OF CHARISMA LEFT" 
ТЕ 0620 THEN PRINT "YOU AMASSED $"G"WORTH OF GOLD" 
РКІМТ:РКІМТ 
А (Е) #7. 
FOR J=1 TÜ 100 
FRINT СНЕЖС(АСЈ)):" "y 
IF 1lOXKINT(J/10)=J THEN FRINT 
NEXT J 
GOSUR 1610 
IF 0-9 THEN END 
RETURN 
CL S: PRINT: ЕКТАТ: PRINT 
FRINT " WELCOME TO THE WORLD ОР": 

FRINT а” DRAGONFEAR" 
PRINT "YOUR MISSION IS TO EXPLORE THE" 
PRINT "CAVES OF DRAGONWORLD, LOOKING FOR" 
PRINT "TREASURE, AND ATTEMFTING TO SLAY" 
PRINT "THE FEARSOME DRAGONS WHO LIVE IN" 
PRINT "THE CAVES. WHAT IS YOUR МАМЕ"; 
ІМРОТ АФ 


JOSUE 
1610: вото 1180 


FG елік іні мы 2 Pitra = + в м. 


1560 
1370 
1280 
1590 
1400 
1410 


1420 
1430 
1440 
1450 
1460 
1470 
1480 


1470 
1500 
1510 
1520 
1530 
1540 


1550 


1560 
1570 
1580 
1590 
1600 
1610 
1620 


CLS:PFRINT:FRINT "ALL HAIL, DUKE "Ati 

РКІМТІРКІМТ “YOU START THIS EXPLORATION" 

PRINT "WITH 25 UNITS OF CHARISMA, AND" 

PRINT "YOU MUST COMPLETE. YOUR TASK" 

PRINT "BEFORE THE CHARISMA IS WORN QUT." 

PRINT " YOU LOSE ONE UNIT FOR EVERY": 

FRINT, "MOVE YOU MAKE" 

ТЕ МКЕУ $: ТФ INFEEY$ 

PRINT:PRINT "PRESS ANY KEY ТО BEGIN" 

IF INKEYS$-"" THEN 1440 

CLS:PRINT32224,"PLEASE STAND BY, DUKE "AS 

DIM A(100):Hz-0:(-0:Lz0:(z0: AR=6 

FOR E=1 TO 100:А (Е) =46 

IFBZ120RB290Q0R1IOXINT(GB/10)-zBORIOXINT(B/10O) 
=B-1 THEN ñ (B) =88] 

NEXT 

FOR B=1 ТО 5: КЕБТОКЕ: ЕОК D=1 TO 5 

Z=RND (76) + 12: IF ACZ)=88 THEN 1510 

READ CsACZ)=C 

NEXT Dyk 

рата 88,63,68,81, 

FÜR B=1 TO 8: READ 1: РСЕ) #7: NEXT В 

DATA -11,-10,-<97,-і,і1,%7,10,11 

Ево 

RETURN 

REM 

REM 

FOR О=1 TO ЗООО:МЕХТ Os: RETURN 

PRINT "YOU CANNOT MOVE THAT ШАҮ!" БОТО 150 








Simula 





015 


Simulations аге ways of producing а counterfeit reality. Іп contrast to 
adventure, where the reality created via the computer is often magi- 
cal and dream-like, the worlds accessed through computer simulations 
are generally more down to earth. xU 


ЈЕ и ў, 





Ёл, 
VOR Ner qas 


„йыш с. пу 
{eee 


ctt: 


Ki 


| | | | Іп a simulation, the computer manipulates variables in accord- 

| ance with formulae you've specified, keeping tabs on the unfolding of 
ІІ | the situation you've generated, апа taking the place of the епуігоп- 
ІМ 1 ment in terms of reacting to your input. ` qoo 
|| | Simulations attempt to replicate life. However, because reality is 
| aM" notoriously hard to pin down and limit, we need to do some pretty 
ІІ B drastic simplification before we can produce a workable simulation. 
ІІІ Despite this simplification—as you'll soon see—a well-written 
||| | simulation сап imitate life to an uncanny extent. Cause and effect are 
| linked as accurately as you can devise formulae for them. 
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| | MISTRESS OF 
XENOPHOBIA 


We'll start our exploration of simulations with the silliest one of the 
lot, MISTRESS OF XENOPHOBIA, which is based on a program 
written by Alastair Gourlay, a talented programmer who lives in 
Glasgow. 4 





бабы e >s Пън. а 2s — 





There's no need to explain MISTRESS, as the program gives 
you all the prompts you could need. Here's the listing: 


20 GOSUR 700 

ІП l 50 КЕМ ЖЖЖЖЖАЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖЖЖЖ | 
| | | 40 FOR Y=1 TO 20 | 
||| | 50 CLS x 
| | | 60 PRINT:PRINT x 
x | | 70 PRINT"MISTRESS OF XENOPHOBIA,A REPORT" ES 
||| | | 80 PRINT"FOR YOU FROM THE OFFICE OF INFO x 

ІІ | -MATION REGARDING THE"; | 
І | | | 90 PRINT" STATE OF":PRINT"YOUR PLANET" 
||| 1 100 PRINT"IN THIS YEAR OF GRACE,"1994+Y | 
|| | 120 PRINT"THE PLANETS POPULATION IS"INT (FP+INF (D) 
" 7. 150 GOSUB 880 
1 | 140 PRINT:FRINT"THE GROVELLING PEASANTS COULD " 
ТІ | | 150 PRINT"WORK SOME"L"ACRES THIS YEAR..." 

ТШ ) 160 GOSUB 880 

|| | | 170 PRINT"YOUR TREASURY HOLDS GOLD,GEMS" 

||| 42 M 





5 и 
М f 


180 
190 
200 
p) 
< A 


ғч sen ин 


240 
ОО 
260 
2/Q 
280 
zo) 
500 
pt 
A20 
550 
540 
550 
560 
70 
зво 
AU 


5935 


ZAQUO 
410 
420 

КЖС) 


440 


450 
460 
470 
480 
490 
SUO 
109 
О 
SFO 
340 
wot) 
2650 
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PRINT"AND COINS WORTH *"INT(U) 
GOSUR 880 


PRINTsPRINT "TIME TÜ ISSUE A DECREE. se." 
FRINT:PRINT"HOW MUCH LAND IS TO БЕ FARMED" 
INFUT"THIS YEAR"; W 

U=U~Wx 10 

IF 051 THEN 780 

(| И 


возив 880 
ЕКІМТ: РКІМТ "АМО HOW MUCH WILL YOU SPEND" 
INFUT"ON FOOD FOR THE PEASANTS”; W 
U=U-Wx 10 
IF U<i THEN 780 
R=RND (10) 
GOSUE 880 
IF F-WkRXS2P/4 THEN GOSUB 580 | 
РЕР+КМО (1000) /1000X (WKRXS—F) | 
IF Р>149 THEN 410 
совив 880 
PRINT"THE POPULATION OF ХЕМОРНОВТА IS" 
PRINT"NOW DOWN TO"INT(F)"AND THAT" 
PRINT"JUST AIN'T ENOUGH, YOUR XENO":SOUND 8,8: 
SOUND 7,7 
SOUND 6,6:S0UND 6,5: 6ОММ) 4,4:SOUND 3,3: 
SOUND 2,2:SOUND 1,1 


GOTO 480 

U=U+INT (FXL) /95 

NEXT Y 

FRINT:PRINT:PRINT"WELL, YOUR XENOPHOBIC, THAT'S" 

PRINT" THE END OF YOUR 20 YEAR DOMINAT-ION ОР 
Bur LITTLE"; 

PRINT’ FLANET. "SPRINT" YOU MANAGED TO" 

FRINT"ACCUMULATE SOME $"U"WHICH" 

PRINT"I GUESS AIN T TOO BAD...." 

GOSUE 880 

FRINT:zsFRINT"' IF YDU"D LIKE ANOTHER SHOT" 

PRINT“ REELING THEN JUST PRESS "ҮЗ Ок“ 

PRINT"PRESS "МУ .,..." 

AS=INKEYS | | 

IF AS<>"Y" AND 284?" М" THEN 520 

IF аф="у" THEN RUN 

FRINT"YOUR WISH 19 MY COMMAND" 

PRINT"OH MISTRESS OF XENOPHOBIA": END 


970 
JOO 


989 


390 
600 
610 
& 20 
630 


540 
бео 
560 
670 
580 
670 
700 
720 
750 
740 
790 
760 
770 
780 
790 
BOO 
910 
820 
530 
840 
850 


geo 


870 
380 
190 
9090 
910 


REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
PRINT"OH DEAR! THERE*S NOT ENOUGH FOOD 
FOR EVERYONE...." 

PRINT:PRINT"HORRORS, YOUR XENONESS" 
РЕТМТ"ТНЕКЕ- 8 BEEN A REBELLION!!!!" 
FRINT"THE PEASANTS ARE REVOLTING" 
PRINT’ І HAD TO РОТ THAT LINE IN)" 
G0SUEB SHO 
ТЕКМО (5) + 1 ТНЕМЕКІМТ "АМО YOUR COPS 

COULDN'T STOF THEM" : СОТО4ВО 
PRINT ВОТ YOUR RUTHLESS FOLICE HAVE" 
FRINT"FUT А STOP TO ALL THAT NONSENSE" 
GÜSUR 880 
RETURN | 
NEXT Ү | 
КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЖЖЖЖЖЖЖ | 
КЕМ INITIALISATION | 
CLS | 
Е=РЕЕК КМО (32767) ) z НР 
U=7O0+RND (550) 
L=7O+RND (50) 
RETURN | 
REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ | 
REM BANKRUPTCY 
FRINT:PRINT"WELL, XENO, THATS A FINE" 
PRINT"MESS YOU'VE GOT YOURSELF, AND 
FRINT"OUR LITTLE PLANET INTO. " 
GOSUB 880 
PRINT:FRINT"THE TREASURY IS BANKRUPT! ІН 
GOSUB 980 | 
PRINT:PRINT"UAND GUESS WHO BLEW IT??? PP Pere" | 
GOTO 490 | 
REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ | 
REM DELAY | | 


FOR J=1 TO 1500 :МЕХТ J 
PRINT 
КЕТОКМ 
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| RURAL PURSUITS 


If you've survived being MISTRESS OF XENOPHOBIA, you may 
be interested in something a little more earthy—running a farm. In 
RURAL PURSUITS, based loosely on a program written by Stephen 
Glen, also of Glasgow, you have a very difficult task, as you battle 
with an extremely touchy work-crew to bring home the bacon (or at 
least the wheat and barley). 





HY) 


= F ` 


Again the program is largely self-prompting, and working with it 
will teach you the best strategy for gaining a maximum return from 
your farm (and surviving for the requisite 20 years to win the game). 
However, a few hints will not go astray. Although you can save 
money by paying your workers extremely badly, you'll find they'll 
desert you in droves in the following year, and the return you get 
from your land is dictated, to some degree, by the number of people 
you have working on the land. I 

Another factor to keep in mind is that the three crops which you 
can plant have quite different returns, so it is in your interest to work 








out which is the most profitable crop, апа concentrate оп that. 

Do not be dismayed if you foul the process up the first few times 
you run the program. You'll have to develop some real skills to keep 
your farm solvent, and it may take you several bad years to get the 
hang of it. 

Here's the program so you can become a happy farmer: 


10 REM RURAL FURSUITS 

20 YR=1 

40 MO=RND (1000) + 2000 

50 LA=RND (1000) + 100 

60 AC=RND (200) +300 

70 CS=RND (5) +8 

go Ваго: у Н=о: СО=0 

90 GOSUB 170 

100 GOSUB 290 

110 IF YR=10 THEN 750 

120 IF MO<1 THEN 790 

130 IF LAà«1 THEN 820 

140 YR=YR+1:AC=AC+INT (CAC/RND(10Q) ) 

150 CS=CS+INT(12.35*CS/100) 

150 GOTO 80 

170 КЕМ UFDATE 

180 CLS 

190 FPRINT"YQU HAVE Б" МО" ТМ YEAR"YR 

200 GOSUB 880 

210 FPRINT"YOU ARE EMFLOYING"LA 

220 PRINT"LABORERS, WORKING FOR" 

230 FRINT YOU ON"AC"ACRES" 

240 GOSUB 80: ЕОК Уші TO 1000:NEXT Vs 
FRINT "FRESS ANY NUMBER" 

24% IF VAL CINFEYS$)=0 THEN 243 

250 PRINT'UCROPSs—" | Ae (7); СО" CORN" 

260 PRINT , BA" BARLEY" 

270 FRINT ,WH" WHEAT" 

280 RETURN 

290 PRINT:FRINT"IT WILL BE #"CS"IN" 

200 PRINT'GENERAL COSTS TO WORK EACH" 

510 FPRINT"ACRKE...AND 50 THE MAXIMUM" 

520 PRINT"NUMEER OF ACRES YOU CAN" 

550 PRINT"WORK THIS YEAR IS"; 

540 MAX=INT(MO/CS):IF МАХ>АС THEN MAX=AC 

SSO0 PRINT MAX 


аа > става auno = шь 


560 


470 
380 
590 
400 
410 


420 
450 
440 
450 
460 
479 
480 
490 
SOO 
10 
do 
550 
340 
wu 
160 
37/0 
980 
990 
600 
610 

zQ 
630 
640 
630 
660 
970 
680 
&90 
700 
710 
720 
730 
740 
750 


FRINT"HOW MUCH LAND DO YOU WANT TO": 
PRINT "HARVEST" 5 

INPUT L 

IF L>MAX THEM 570 

MO=MO-LACS 

GOSUER 170 

РКІМТ:РКІМТ"НОЫ MUCH WILL YOU FAY EACH ": 

INPUT W PRINT'WORFER" š 


IF WxLñ>FO THEN 420 

MO=MO-LAKW 

GOSUE 170 

P=10 

ЕКІМТ "ИНАТ FROFORTION (OUT OF TEN) DO" 
PRINT" YOU WISH TO CONCENTRATE ON CORN"; 
INPUT CF 

IF СЕЕ THEN 490 

РеР--СР 

PRINT:PRINT"OF THE REMAINING"P"OUT OF TEN," 
FPRINT"HOW MUCH WHEAT DO YOU WANT ТО PLANT" 
INFUT WF 

IF МЕР THEN S40 

P= FWP 

GOSUB 870 

FRINT"STAND BY FOR A YEAR...." 

FOR Z=1 TO 2000:NEXT Z 

BA=INT (CP XLXLAKWKE/1LOOO0O0O) 
COsSINT(CFXLXLO3XWX*X2.7/17000) 
WHZINTCGWIFXLXLAXWX1.4/932300) 

T=BA+CO+WH 

GOSUB 170 

РКІМТ:РКІМТ T" TONS WERE HARVESTED" 
RT=INT (6. 5+8. 7XBA+5. 94XCOT2. 2KWH) X (CS-CX+1)) 
IF вазо AND CO=0 AND WH=0 THEN RT=0 
FOR 2-1 TO 2000:NEXT Z 

FRINT:FRINT"AND YOUR TOTAL RETURN" 
PRINT"WAS $"RT 

MO=MO+HRT 

LA=INT (LA-LA (N+. 01) ) 

FOR Z=1 ТО 2000:МЕХТ 2 

RETURN 

GOSUB 870 

FRINT "YOU HAVE SURVIVED FOR 10 YEARS" 
FRINT"CONGRATULATIONS!" 








775 
780 
790 
goo 
810 
820 
gio 
840 
950 
850 
870 


880. 


890 
700 


910 
920 
750 


940 


IF MO*1E*12 THEN GOSUB 900 


PRINT 
GOSUE 


"AND БАТМЕОП" МО" МОМЕУ" : END 
870 


FRINT "YOU HAVE GONE BROKE!" 

END 

GOSUB 870 

FRINT "YOU HAVE NO WORKERS, AND" 
PRINT “HAVE BEEN FORCED TO SELL” 
FRINT ,"YOUR FARM" 

END 

CLS 

PRINT: PRINT 

RE TURIN 


FOR TUs1 ТО 55: КЕАр FR,DU: SOUND ЕК, 00: 


DATA 


NEXT ТИ: RETURN 


162 1612-7206, 5, 20,1, 20, 2, 18, 1,20,27,21,5,20, 5 


DATA 20,2,18,5,18,1,18,2,16,2,18,2,20,3,16,2 


DATA 


16:5 18. 2/.20.5.20.1,20,2,10,1,20,72, 21,2, 


DATO дева зи, 2/20, 5,18, 2, 16,5 


| | AVALANCHE 


In this simulation, you are Mayor Glugenheimer, the leader of a 
Swiss alpine village which lies directly in the path of avalanches 
which launch themselves at the village with monotonous regularity. 
The game, like the other three in the book, forces you to make deci- 
sions regarding the expenditure of strictly limited resources. On these 
decisions hang the fate of your village. 

You are (you hope) in office for 20 years. Although it is more 
likely than not that the village will survive from year to year without 
suffering the ravages of an avalanche, the chances of an avalanche 
increase each year. The only resource under your control is money, 
which can be used to build shelters within which your villagers can 
huddle in comparative safety when an avalanche hits. 

You have limited money (which is bearing a generous interest 
rate if it is not spent on shelter). The longer you hang on to the 
money, the more you will have to spend on avalanche shelters. How- 
ever, the longer you wait without buying shelter, the more likely it is 
that an avalanche will occur, and many members of your village will 
be killed. You must therefore determine what proportion of your 
money you will keep on deposit, and what portion of it will be spent 
on shelter. If you have no shelter when an avalanche strikes, the vil- 
lage will be wiped out. 

As you can see, you are bearing a considerable amount of respon- 
sibility. If an avalanche does strike, and the computer considers the 
loss of life totally unacceptable, the game will terminate with the fol- 
lowing statement: 





THE LOSS OF HUMAN LIFE WAS 
CATASTROFHIC...YOU HAVE 
BEEN FORCED TO ӘТЕР DOWN 
FROM THE OFFICE OF MAYOR 


Here are a few “years” from the program in action: 


YEAR 1 


THE CHANCE OF AN AVALANCHE IS 19 TO 1 


THE VILLAGE HAS 2472 PEOPLE 





ТНЕ 


HOW 


THE 


THE 


Y OU 


THE 


HOW 


VILLAGE TREASURY HOLDS $ 12232 


MUCH WILL YOU SPEND ON SHELTER? 


YEAR 2 


CHANCE OF AN AVALANCHE IS 18 ТО 
VILLAGE HAS 2595 PEOPLE 
HAVE 29700 SHELTER 


VILLAGE TREASURY HOLDS % 1555 


MUCH WILL YOU SPEND ON SHELTER’? Š 


YEAR 3 
THE CHANCE OF AN AVALANCHE IS 17 TO 
THE VILLAGE HAS 2724 PEOPLE 
YOU HAVE 29835 SHELTER 
THE VILLAGE TREASURY HOLDS % 14.56 
HOW MUCH WILL YOU SPEND ON SHELTER? 
YEAR 5 
THE CHANCE OF AN AVALANCHE IS 15 TO 
THE VILLAGE HAS 3003 PEOPLE 
YOU HAVE 29969 SHELTER 
THE VILLAGE TREASURY HOLDS $ 1683 





11000 








HOW MUCH WILL YOU SPEND ON SHELTER? 100 
жж AVALANCHE Xx 
XX AVALANCHE xXx 
ЖЖ AVALANCHE ЖЖ 
XX AVALANCHE ЖЖ 
ЖЖ AVALANCHE ЖЖ 
kk AVALANCHE ЖЖ 
XX AVALANCHE ЖЖ 
| жж AVALANCHE XX 
| жж AVALANCHE Xx 
4 жж AVALANCHE Xx 
| ЖЖ AVALANCHE ЖЖ 
| ЖЖ AVALANCHE ЖЖ 
I XX AVALANCHE ЖЖ 


2994 PEOPLE BRE SAFE. 
BUT У FEDPLE МЕНЕ EPDLED.z:, 


THERE ARE 27215 CUBIC YARDS ПЕ SHELTER LEFT 


YEAR 12 
THE CHANCE OF AN AVALANCHE IS 8 TO 1 
THE VILLAGE HAS 4209 PEOPLE 
YOU HAVE 27215 SHELTER | 


THE VILLAGE TREASURY HOLDS $ 3086 


| THERE ARE 9 VILLAGERS DEAD 


HOW MUCH WILL YOU SPEND ON SHELTER? О 
KK AVALANCHE жж 
ЖЖ AVALANCHE жж 
ЖЖ AVALANCHE ЖЖ 
KK AVALANCHE жж 
KK AVALANCHE xx 
XX AVALANCHE ЖЖ 
KX AVALANCHE XX 





|| 


| 
|| 


i 


II 
| 


ЖЖ AVALANCHE ЖЖ 

kk AVALANCHE ЖЖ 
ЖЖ AVALANCHE. ЖЖ 
ЖЖ AVALANCHE ЖЖ 


2722 PEOPLE ARE БАРЕ... 
BUT 1487 PEOPLE WERE KILLED... 


THERE ARE 24495 CUBIC YARDS OF SHELTER LEFT 


YEAR 19 
THE CHANCE OF AN AVALANCHE IS 2 TO 1 
THE VILLAGE HAS 2444 PEOPLE 
YOU HAVE 20098 SHELTER 
THE VILLAGE TREASURY HOLDS $ 9526 
THERE ARE 25235 VILLAGERS DEAD 


HOW MUCH WILL YOU SPEND ON SHELTER? 50 
ЖЖ AVALANCHE жж 
KK AVALANCHE xx 
KX AVALANCHE жж 
KX AVALANCHE Xx 
жж AVALANCHE Xx 
ЖЖ AVALANCHE Xx 
ЖЖ AVALANCHE xx 
ЖЖ AVALANCHE жж 
ЖЖ AVALANCHE xx 
ЖЖ AVALANCHE жж 
ЖЖ AVALANCHE жж 


2025 PEOPLE ARE SAFE... 


BUT 421 PEOPLE WERE KILLED... 






THERE ARE 18207 CUBIC YARDS OF SHELTER LEFT 








You can see that if an avalanche does strike, but not enough 
people are killed to force you out of office, it becomes a little easier to 
cope with future avalanches because you have.less people who you 
must shelter. However, the villagers waste no time in adding to their 
numbers (there is little to do on winter nights except huddle under the 
bedclothes and listen for the warning rumble of an impending ava- 
lanche, so the gradual population increase is not hard to understand). 

You'll be rewarded with a statement like the following if you sur- 










vive 20 years in office: DN м 
WELL DONE, MAYOR GLUGENHE IMER Ё 
г M Кз БҰРЫ 


YOU MANAGED TO SURVIVE 20 YEARS _ НИЦИ 
IN OFFICE, AND END YOUR TERM WITH: 


$ 6547 IN THE TREASURY 


1921 PEOPLE SURVIVING 


YOUR MAYORAL RATING 15 81423 








Jenn 


Your final *mayoral rating" (see line 300) is related to the amount 
of money you still have left in the treasury, the number of surviving 
villagers, and shelter on hand. This total is offset by the number of 
people who have been killed in avalanche falls during your term of 
office. 


10 REM AVALANCHE ! 

го REM FOR угдоо 

30 M = RND(OSOOO) + 7087 
40 P = RND(1000) + 2278 
ЗО бш0Оі D: N=0 

BOXEUR Y = 1 TO 20 

70 CLS 

ВО IF Y = 20 THEN 240 

90 PRINT ТАВ (4) : YEAR": Y 
100 PRINT:FRINT "THE CHANCE OF AN AVALANCHE 
IS"; 20-у; "тр 1" 

110 РКІМТ:РЕІМТ "THE VILLAGE нас"; P; "PEOPLE" 








120 IF 5<>0 THEN PRINT:PRINT "YOU НАУЕ" 5; “3 








HEL TER" 

120 ЕВТМТ: ЕКТМТ "THE VILLAGE TREASURY HOLDS 

$"M 

140 IF Dz»O THEN PRINT:PRINT "THERE АКЕ" Dy" | ЗИД НЕТА үр 
VILLAGERS DEAD" | ЛАА, Hp aN ee kes De 
150 IF М<>О THEN РКТМТ: ЕКТМТ "THERE HAVE BEE | M DN T! | 


Te 24 аа SUN 


N" s Ns "AVALANCHES" | 
160 PRINT: INFUT "HOW MUCH WILL YOU SFEND ОМ | 
SHELTER" А 

170 IF М-А<О OR S+AZO THEN 160 | 
180 МеМ--А | 
190 S=G+INT(2, 7ЖА) | 
200 М=М+1МТ(М/10 4.5) | 
210 IF INT(RND(1)£ (2O-—Y))+1=1 THEN GOSUB 220 


220 P = ІМТІРЖ.ОЗЖР) 
250 NEXT Y | 
240 PRINTsPRINT "WELL. DONE, MAYOR GLUGENHE IM 1 





ER" 
200 FRINT:FRINT "YOU MANAGED TO SURVIVE 20 Y 
EARS" 
260 PRINT "IM OFFICE, AND END YOUR TERM WITH 
270 РКІМТЕРКІМТ ТАБВ(4);"%";М; "ІМ THE TREASUR 
yu 
200 PRINT: PRINT Тав(4):Р: "PEOPLE SURVIVING" | 
290 PRINT:PRINT Тав 4) : 56; "CUBIC YARDS OF SHE q 420 IF X20 THEN PRINTSPRINT "BUT" Ks "PEOPLE 
| L TER" 1 WERE KILLED..." 
||| | 200 РКІМТ:ІРКІМТ "YOUR MAYORAL RATING ІЗ" 10x | 450 D=D+X 
III МЕФОЖР+Р+6 - 12XD 440 PF 
ІШЕ 10 END j 430 =Е-_ (УМ ГУЛД + „о 
|| 20 REM Xxx AVALANCHE xxx | 460 РЕТМТ: РЕТМТ "THERE АКЕ"; 5: "CUBIC YARDS O 
ІН 330.FO0R J = 1 TO 32 a Е SHELTER LEFT" 
PN 340 PRINT TAB(J/2): "kk AVALANCHE Xx" ; 470 FOR Елі TO ЗООО:МЕХТ Е 
ІІ 350 FOR Есі TO 330 ~ 10ЖЈ:МЕХТ Е | | 480 IF FLAG-1 THEN 500 
"n 560 NEXT J | 490 RETURN 
D 370 Q=INT(S/10 + .5) | 500 PRINT: PRINT 
| 180 IF G^» THEN @=@-15:GOTO 280 1 410 PRINT “THE LOSS OF HUMAN LIFE WAS” 
B 390 РКТМТ: РКТМТ 0; "PEOPLE ARE SAFE..." 1 220 PRINT "CATASTROFHIC...YOU HAVE" 
D 400 ХЕР-Ш 4 550 PRINT "BEEN FORCED TO ӨТЕР DOWN" 
т 410 FLAG-zO:IF Х>ЗЖР/З THEN FLAG=1 4 340 PRINT "FROM THE OFFICE OF MAYOR" 


ШТІ : ' Í ЕСО ыз 
| 4 e EN) END 
||| 3 | 





ағыста pass... aor. r 





| | CHAIRMAN OF 
THE BOARD 


Finally in this section we have our major simulation, CHAIRMAN 
OF THE BOARD. 

Again the program is largely self-prompting. The aim of the 
game is to keep your factory running until you manage to make 
$10,000 (in total, combining the value of stock in hand plus your capi- 
tal). You have to deal with recalcitrant unions (who won’t always let 
you fire the people you wish to get rid of, and have a great appetite 
for pay raises which you cannot deny), with workers who will hardly 
ever meet the production targets you set, and raw material suppliers 
who enjoy putting their prices up as much as the unions enjoy slug- 
ging you for more pay. 

You'll find, in contrast to the other two programs, which are only 
very vague approximations to “real life,” that the life and health of 
your factory will become very important to you, and you'll certainly 
learn ways of manipulating resources for maximum return. Keep in 
mind that although you have great freedom in setting the retail price 
of your products, each rise in price will increase consumer resistance 
to purchasing those products. 





Апа now you сап satisfy your corporate ambitions with this 
listing: 


10 REM CHAIRMAN OF THE BOARD 
20 GOSUB 1670:REM INITIALISE 
50 WE=WE+1 

40 GOSUB 950: ВЕМ REPORT 

SO GOSUB 1200:КЕМ STAFF 

60 GOSUB 930:REM КЕРОКТ 

70 GOSUB 1150:КЕМ PRODUCTION 
во GOSUB 930:REM REPORT 

90 GOSUB 730:REM SALES 


100 
110 
120 
150 
140 
159 
160 
170 
180 
190 
200 
210 
220 
250 
240 
улије, 
250 
270 
230 
290 
5300 
310 
520 
550 
540 
Ad 
560 
570 
380 
390 
400 
410 
60 


GOSUB 140:REM PROBLEMS 
са=са-пажио-КС 

GOTO зо 

REM ЖЖЖЖЖЖЖЖ 

REM FROBLEMS 

CLS 

IF RND(O)£.45 THEN 260 

A=RND (7) 

РЕТМТ: РКТМТ: PRINT 

PRINT "THE UNIONS ARE DEMANDING А" 
PRINT "FAY RISE OF"A"%" 

WA=INT (100x (WAtWAXA/100)) /100 
GOSUB 1840 

PRINTsFPRINT "FAY FER EMPLOYEE IS NOW $"WA 
GOSUB 1840 

CLS 

IF ЕМр(02<.81 THEN 410 

РКТМТ: РКТМТ: ЕКТМТ 

FRINT "А FIRE ІМ YOUR WAREHOUSE HAS" 
PRINT "DESTROYED SOME STOCK. FLEASE" 
РКІМТ "STAND BY РОК А КЕРОКТ ОМ" 
PRINT "THE DAMAGE CAUSED..." 

GOSUB 1840 

А+КМО (ST/2) 

ST=ST-A 

PRINT:FRINT "THERE WERE"A; АФ 
PRINT "DESTROYED. THEY WERE " 
FRINT “WORTH $"AXKSF"RETAIL"” 

GOSUB 1840 

PRINT "STOCK IN HAND IS" 

PRINT "NOW'STs АФ 

IF RND(O) >. 3 THEN 560 


420 
430 
440 
450 
450 
470 
480 
490 
51816) 
510 
520 
350 
40 
550 
560 
570 
gga 
290 
600 
610 
620 
650 
640 
650 
640 
870 
680 
690) 
700 
710 
720 
ү 

740 
790 
7&0 
770 
780 


800 
glo 
820 
950 


CLS 

PRINT: FP RINT 

FRINT "YOUR MAIN SUPPLIER HAS ANNOUNCED" 
PRINT "А DRAMATIC PRICE RISE..." 
GOSUB 1840 

A-ZRNDGLOOXCO/7)/100 

IF А“<1 THEN 470 

РКІМТ:РКІМТ"ТНЕ COST OF MAKING "АФ 
FRINT "HAS RISEN EY $"A"EACH" 
GOSUB 1840 

CO = CO + A 

РКІМТ:РКІМТ "IT NOW COSTS #"CO 
PRINT "TO MAKE EACH ONE..." 

GOSUB 1840 

IF RND(O) < .65 AND МА < SP THEN RETURN 
ELS 

ЕКТМТ: ЕКТМТ 

PRINT "YOU HAVE А CHANCE ТО RAISE" 
PRINT ТАЕ (4): "УОЦК PRICE. YOUR" 
PRINT ñ*;" NOW SELL FOR $"SF 

GOSUE 1840 

PRINT 

РКІМТ "WHAT FERCENTAGE INCREASE WOULD" 
INPUT "YOU LIKE ТО IMPOSE":A 
КЕ=КЕ+А 

ЗЕ = ІМТ (100x (БРФАЖБР/100) ) /100 
50506 1840 

FRINT:FRINT "THE "АФ" NOW SELL FOR e$"SF 
GOSUB 1840 

RETURN 

КЕМ ЖЖЖЖЖ 

REM SALES 

РКІМТ:РКІМТ "YOUR TOTAL STOCK OF" 
PRINT AS" IS"ST 

GOSUB 1840 

РКІМТ:РКІМТ "FLEASE STAND БҮ FOR А" 
РКІМТ "SALES REPORT..." 

А= ІМТ (КМО (0) XST/ (КЕ/1000) ) +1 

IF А>5Т THEN 790 

CLS 

PRINT: PRINT 

PRINT "THE TOTAL NUMBER OF "АФ 
PRINT "SOLD IS"A 








S50 ST=ST-ñ 

060 ZA=AXSP 

3870 ЕКТМТ: ЕКТ МТ "THE INCOME FROM THAT" 
380 PRINT "SALE WAS "ZA 

590 CA=INT(AKSPXK100) /100+Cñ 

900 (50508 1840 

910 RETURN 

ооо REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

озі REM REFORT TO THE CHAIRMAN 


940 CLS | 
950 IF СА+5Т<1 THEN 1510: КЕМ ВАМЕКЏРТСУ 


960 
965 


ЈЕ CA-5T29999 THEN PRINT "YOU'VE MADE $10000 AND 
IFCA-ST29999THEN FRINT"CAN NOW RETIRE..."s 


5050861940: БОТО 1590 


970 PRINT:PRINT "SHOP FLOOR КЕРОКТ, SIR," 
990 PRINT ТАВ (0); "РОК WEEK"WE 
990 PRINT:PRINT "CAPITAL ІМ HAND IS $" 


1000 
1010 
1020 
1050 
1040 
104% 
1050 
1060 
1070 
1080 
10990 
1100 
1110 
1120 
1130 
1140 
1150 
1160 


1170 
1178 
1180 


1190 
62 


INT (CAX100) /100 
PRINT "RUNNING COSTS ARE $"RC"AÀ WEEK" 
PRINT:PRINT "YOUR STORES HOLD"ST; АФ 
PRINT TAB(A);: "WORTH $"INT(STXSPX100)/100 
PRINT:PRINT "THEY SELL FOR %"5Р" EACH" 
PRINT "AND COST #"CO"EACH TO MAKE" 
IF INKEY$¢3" " THEN 1045 
PRINT:PRINT "YOUR WOREFORCE IS NOW" 
PRINT WO"STRONG, AND YOU ARE" 
PRINT "PAYING THEM $"WA"EACH" 
PRINT "THE WAGES BILL THIS WEEK IS $"WAXWO" 
PRINT:PRINT "EACH FERSON CAN MAKE"FR 
PRINT A$" A WEEK, A TOTAL" 
PRINT "OUTPUT OF "PRKWO 
RETURN 
INFUT "HOW MANY DO YOU WISH TO FRODUCE";MA 
IF МА=0 THEN RETURN 
PRINT 
IFMAXCO>CA THEN PRINT"YOU DO NOT HAVE 
ENOUGH MONEY": БОТО 150 
IF МАЗРЕЖИО THEN PRINT "YOU DO NOT HAVE 
ENOUGH PEOPLE" 
IF МА>РЕЖИО THEN FRINT TAB(6);"THAT MANY": 
GOTO 1130 
PRINT "YES SIR...THE TARGET FOR WEEK"WE 
PRINT "15" МА; АФ 


pce је = РӘ 
“Эх а 
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UE Ua TIL јео ДРЕ АТ Алое Дада re on bai C Tta lut c 


1200 


1210 
1220 
1250 
1240 
1250 
1260 
12/0 
1280 
1290 
1 300 
1310 
1:32D 
1330 
1340 
1350 
1560 
1370 
1580 
1590 
1400 
1410 
1420 
14350 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1930 
1940 
1550 
1560 
1570 
1580 
1990 
1600 
1610 
1620 





MA=INT (MA-RND (О) ЖМА/ 5) 

sÜSUB 1840 

РКІМТ:ІРКІМТ "THE NUMBER OF "A$ 
PRINT "ACTUALLY PRODUCED IN WEEK"WE 
PRINT “WAS"MA".. =" 

ST=ST+MA 

CA=CA-COAXMA 

GOSUE 1840 

RETURN 

REM ЖЖЖЖЖ 

REM STAFF 

FRINT "HOW MANY FEOFLE DO YOU" 

INPUT "WISH TO НТКЕ";: А 

WO=WO+A 

PRINT: FRINT "THE TOTAL WORKFORCE" 
PRINT "15 NOW"WO"STRONG" 

HOSUR 1840 

IF AsO THEN RETURN 

GOSUR 950 

РКІМТ “HOW MANY PEOPLE DO YOU" 

INPUT "WISH TO FINE зе ç 
IF АчО THEN 1480 

IF А>АО THEN 1390 

A=RND (ñ) 

GÜSUE 1840 

FRINT:PRINT "THE UNIONS WILL ALLOW" 
PRINT "YOU TO ВЕТ RID ОЕ"А 

WO=WO-A 

GOSUB 1840 

RETURN 

КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖ 

КЕМ BOTTOM LINE! 

PRINT:PRINT "YOU RE BANKRUFT!!"sSOUND 5,8 
GOSUB 1840 

РКІМТ:РКІМТ "OH THE SHAME OF IT! !"sSOUND 5,8 
GOSUB 1840:SOUND 1,8 

PRINT:PRINT "STILL, YOU KEPT THE BUSINESS" 
FRINT "GOING FOR"WE"WEEKS" 

GOSUB 1840 

PRINT "ENTER У: РОК ANOTHER STINT” 
PRINT "AS CHAIRMAN OF THE BOARD...." 
PRINT "(OR "N° IF YOU WANT TO QUIT)" 
AS=INKEY S$ 
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1630 


1640 
1650 
1660 
1670 
1690 
1700 
1710 
1720 
1730 
1740 
1730 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 


IF А%<>"Ү" AND А%<>"М" THEN 10290 

IF A$="Y" THEN RUN 

END 

КЕМ ЖЖЖЖЖЖЖЖЖЖ 

REM INITIALISE 

FOR 7-1 TO КМО (8) 

READ A$ 

NEXT Z 

CA=SO0OO0O+RND (500) 

ST=100+RND (500) 

ср 1O+RND (5) 

CO=7+RND (9) 

IF СО>ӘР THEN 1730 

WO=7+RND (10) 

WA=12+RND (SF) 

PR=S+RND (6) 

RC=100+RND (20) 

WE=0 

RE=1:REM RE IS SALES RESISTANCE FACTOR 
RETURN 

FEM DELAY SUBROUTINE 

FOR 7-і TO 5000: МЕХТ Z:RETURN 

DATA "“EFONYMS", "BICYCLES", "HARMONICAS" 
DATA "КА2005", "LECTERNS", "MOLESEINS" 


DATA "CARPETBAGS", "PITH HELMETS", "SKYHOOKS" 


DATA "BARBELLS 
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There is a range of games in this section of your book, all designed 
just for fun. From NOUGHTS AND CROSSES, through LAS 
VEGAS HIGH, to INNER SPRING and ROBOT MINEFIELD, a 
splendid time is guaranteed for all. 


|| INNER SPRING 


We'll start this section of the book with one of the simplest games of 














Б; | the lot, INNER SPRING. As the program explains, the computer pro- 
E | duces two numbers between one апа 13, and asks you to bet on the 
2% || probability of the next number it thinks of lying between the first two. ` 
b | It's simple to play, and a lot of fun. | 
L | Here's what опе round looks like in action: | 
5 ni | | 
$ | | MY FIRST NUMBER IS 2 | 
7 | | | МҮ SECOND IS 1 | 
ШІ! ||| | 
||| | YOU HAVE $ 2 | 
ІІ! " | 
1 | HOW MUCH DO YOU ВЕТ | 
| | || | . MY NEXT NUMBER LIES | 
| | || 1 BETWEEN 2 AND ^4 ? 1 | 
!  " | | 
ІІ МҮ NUMBER WAS 3 
|| | WELL DONE, YOU WIN $ 2 
| (ШІ 
| Ш | And here's the listing of INNER SPRING: 
10 REM INNER SFRING 
20 GOSUB 330 
50 GOSUB 80 
40 IF 041 THEN GOTO 420 
45 IF р>1000 THEN 550 
зо GOSUB 340 
60 GOTO 30 
70 КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
BO PRINT:FRINT:PRINT 
90 РКІМТ "MY FIRST NUMBER IS"A 
100 PRINT " MY SECOND 15"В 
110 FRINT 
120 PRINT "YOU HAVE %"0 
150 РКІМТ 
140 PRINT "AND HOW MUCH DO YOU. ВЕТ" 
150 PRINT "MY NEXT NUMBER LIES" 
180 ЕКІМТ 


"BETWEEN"A"AND"B; 








170 
18o 
190 
200 
210 
220 
жас 
240) 
250 
260 
270 
280 
290 
5300 
510 
520 
530 
540 
350 
560 
570 
380 
390 
400 
410 
420 
430 
440 
430 
460 
470 
480 
490 
300 
510 


or 
a 


550 
540 
550 


360 


INPUT E 
IF- ESD THEN 170 
р=р-Е 
GOÜSUR 500 
РКІМТІРКІМТ "MY NUMBER WAS"C 
GOSUB 500 
IF NOT (CSA AND Ce B OR С<А AND СУЕ) THEN 290 
PRINT "WELL DONE, YOU WIN $"2xE 


D=D+3KE 

GOSUB 500 

RETURN 

КЕМ XXXKKXKKKKKKKKKKKKKK KKK KKK KKK KKK KK KKK KKK KK ЖЖЖ 
PRINT "SORRY, YOU LOSE %"Е 

GOSUB 500 

RETURN 

REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
D-20 


CLS 

A=RND (13) 

E=RND (1:3) 

IF ñBS89(ñ-B)<2 OR ABS(A-B) 56 THEN 260 


C=RND (13) 

IF A=C ОК B=C THEN 380 

RETURN 

КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
PRINT 

PRINT “THE GAME IS OVER":GOSUB 500 


PRINT 

PRINT "YOU ARE BROKE! " 

PRINT 

PRINT "THANKS FOR THE GAME" 

END 

REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЕЖЖЕЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


FOR 2=1 TO 1000 

NEXT 2 

RETURN 

РКІМТ:РКІМТ "CONGRATULATIONS!" 

PRINT "YOU HAVE REACHED $"D 

SOUND 21,4:S0UND 16,2: SOUND 16,1:S80UND 18,4 
SOUND 0,1:500М0 20,4:SOUND 21,4:END 
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|| TUTANKHAMEN'S 
TOMB 


Tutankhamen was pharaoh of the 18th Dynasty of Egypt, around 
1360 B.C. He became king at the age of 11. The reason he is so well 
known today is that his tomb, discovered by archaeologist Howard 
Carter in 1922, is the only Egyptian royal tomb to have been found in 
almost its original condition. Most of the other tombs had long been 
ransacked by thieves. 

The Curse of the Royal Tomb hit those who dared disturb its 
sanctuary after such a long time, and the Curse continues its evil work 
in our program. The game outlines the rules, and the background: 











YOU HAVE ñ LIMITED TIME IN WHICH 
TO FIND AN EXPLORER LOST WITHIN 
EGYFT*S GREATEST FYRAMID 










Wika H ВЕНН cip e HEH вени жыла талан ees sansa ee muw визии қала Rides bises пина при шына BESS dicken алыш шыма ит ата 
шым алым qasa 













OF AIR... YOU CAN TELL APPROXIMATELY БЕН ХАҚ! 
WHERE HE IS BECAUSE HE IS KNOCKING ОМ o А 
ON THE SIDE OF THE TOME AND YOU ARE Ар 
MAKING YOUR WAY TOWARDS THE SOUND... 
YOU CAN HEAR ENOCKING.... 















SESE MEHS iria RS namin анана жәен шыма аана жаны сыны гіш amana торе пеене таның төтеп amen жана — 
—— = тағы Jaisi шаа а ышы ышы пите алаға 







HOWEVER THE SOUND 18 MUFFLED, AND 
YOU CANNOT ALWAYS TELL EXACTLY WHERE 
ІТ ІЗ COMING FROM... . 

















кашат ras нен SE 
"шыла көкей вана кісің mibin ee вези кован панаа ағала шава iuis semin пашаа йи їн плака таста dasbwb фен те пин на пече іне ны асыра quanh ка Боша шыла papim БЕРЕР iamen 


THE KNOCKING APPEARS TO БЕ COMING FROM 
AHEAD OF YOU 


YOU HAVE 20 DICK SMITH MINUTES LEFT 
YOU ARE IN A SERIES OF TUNNELS 


WITHIN THE FYRAMID...WHICH WAY DO YOU 
WANT TO TURN €U,D,R,L,F,B)'? U 





THE KNOCKING APPEARS TO BE COMING FROM 
TO THE RIGHT AND AHEAD OF YOU 


YOU HAVE 19 DICK SMITH MINUTES LEFT 
YOU АКЕ IN ñ SERIES OF TUNNELS 


WITHIN THE FYRAMID...WHICH WAY DO YOU 
WANT TO TURN (U,D,R,L,F,B)? R 


РА Вт сто отъ = а = 





права 54555 425425 жыны жыне жне тікі везна алати жаған оман 445535 пир вечен GS нен GSES РТА maiaa мсн шљиве жағ ваша өзен в e ЩЕ а 





THE КМОСЕТМО AFFEARS ТО ВЕ COMING FROM 
ABOVE YOU TO THE RIGHT AND AHEAD OF YOU 


YOU HAVE 17 DICK SMITH MINUTES LEFT | x 
YOU ARE IN а SERIES OF TUNNELS 
WITHIN THE PYRAMID...WHICH WAY DO YOU | 
WANT, TO TURN (U,D,R,L,F,B)? F 

THE KNOCKING APPEARS TO BE COMING FROM 

ABOVE YOU AHEAD OF YOU 

YOU HAVE 16 DICK SMITH MINUTES LEFT 

YOU ARE IN A SERIES OF TUNNELS 

WITHIN THE FYRAMID...WHICH WAY DO YOU 

WANT TO TURN (U.,D,R,L,F,B)? U 

YOU HAVE 4 DICK SMITH MINUTES LEFT 

YOU ARE IN A SERIES OF TUNNELS 

WITHIN THE PYRAMID...WHICH WAY DO YOU 

WANT TO TURN (LU,D,R,L,F,E)7 F 

THE KNOCKING APPEARS ТО BE COMING FROM 

AHEAD OF YOU 

YOU HAVE 3 DICK SMITH MINUTES LEFT 

YOU АКЕ IN А SERIES OF TUNNELS 


WITHIN THE PYRAMID...WHICH мау: DO YOU 
WANT TO TURN (U,D,R,L,F,B)? F 








m B . 
де | AMA | | 140 PRINT "ОЕ AIR...YOU САМ TELL AFE 
| You'll discover you soon become quite skillful at interpreting (һе | рн R...YOU САМ TELL APPROXIMATE 
I feedback from the computer although it is—as you can see—some- | 150 PRINT "WHERE HE ENOCE 
| | BAIE das ЯН ОША ви sound transmission qualities of the | Е, Г "WHERE НЕ IS BECAUSE HE IS KNOCKIN 
EN ode rcu duo сие tup un | 160 PRINT "ОМ THE SIDE ОЕ THE TOME AND YOU а 
EN | | | If x | 2 Ж =s 
E. н. | 170 PRINT "MAKING YOUR WAY TOWARDS THE SOUND 
% | | | | | š шы m ч 
EM YOU FOUND YOUR FRIEND WITH | | 180 PRINT "YOU САМ HEAR KNOCKING...." 
E - | | ONLY > MINUTES OF AIR REMAINING... | 190 PRINT:PRINT "————— me mn e e e e e e m m e m a s mas e e 
РІ | || ansa mre —u OL 
EN | AS а 200 БОК Озі TO 1000:NEXT Q 
А ТІ ||| | And here's what you see if you fail: | 210 РКІМТІРКІМТ "HOWEVER THE SOUND IS MUFFLE 
Es (1 1 D, AND" 
M E M Dd е aoa | | 220 PRINT "YOU САММОТ ALWAYS TELL EXACTLY ЫН 
ІІ НАТ” 8 THE Е $ “= | ЕКЕ" 
| YOU ARE TOO LATE...YOUR FRIEND 1 ey 


230 PRINT "IT IS COMING FROM...." 

240 FOR 01 TO 1000:NEXT Q 

250 PRINT:PRINT "----------- ---------------- 
1 ————————! s PRINT 
| | 260 PRINT:PRINT "THE KNOCKING APPEARS TO ВЕ 


HAS DIED WITHIN THE FYRAMID 


THE РНАКОАН? S TOME HAS BECOME 
„sehia TOME... 


COMING FROM" 
When you feel brave enough to tackle the tomb (and risk being ; 270 IF КМО (10) 27 THEN 300 
touched by its curse), enter the following listing, and then type RUN: 1 280 IF X >B THEN РКІМТ " BELOW You "s 
290 IF Х<В THEN PRINT "ABOVE YOU "; 
| ЗОО IF RND(10)27 THEN 340 
| 310.IF Z>C THEN PRINT "TQ THE LEFT "; 
| 320 IF 2<С THEN PRINT "TO THE RIGHT "; 


10 REM ТИТАМЕНАМЕМ” 5 TOME 





| 20 КЕМ FOR У2500 1 550 IF (Х<>В OR 2<>0) AND Y<>A THEN PRINT " 
ІШІП 30 A=RND (5) +4: Е-КМО CÓ) +42 С+КМО (4) +4 | AND "; 

MD HOM alos maj xw 7: | = THE 

11 40 Х=1:Ү=1:2=1 | 1 540 IF Y<ñ THEN PRINT "AHEAD OF you" 

M 30 CLS 4 350 IF Уза THEN PRINT "BEHIND YOU" 

|| | 60 CC-21 E S aa 4 360 CC=CC-1 

| 70 PRINT "YOU HAVE А LIMITED TIME IN WHICH 1 370 PRINT:FRINT "YOU НАМЕ" ССЗ "DICK SMITH МІ 
| | ЗО PRINT "TO FIND АМ EXPLORER LOST WITHIN' || NUTES LEFT" 

m 90 PRINT "ЕСҮРТ”8 GREATEST PYRAMID" 3 380 PRINT:FRINT "YOU ARE IN А SERIES OF TUNN 
||| LENS КАКЕ КЫКЕ ЫЕ er вена ланац никаква ікті. 1 ELS" 

||| | c линије СОШ ; " 590 PRINT "WITHIN THE PYRAMID...WHICH WAY ро 
Т! 110 FOR 0-1 ТО 1000:МЕХТ Ü | ЄР I YOU" 

m 120 PRINTS PRINT "HE IS TRAPFED WITHIN THE РН 4 . 400 INFUT "WANT TO TURN (и, D,R,L,F,E) "SAS 
ІП АКПАН" 5" | зз гард | 410 IF A$="U" THEN X=X+1:IF Х>10 THEN X=10 
En 130 PRINT "TOMB... AND HAS ONLY А VERY SMALL. | 420 ТЕ A®="D" THEN Хех ТЕ Xci THEN S] 

"TR AMOUNT" ai 450 IF Ag="R" THEN Z=Z+1: IF 2210 THEN Z=10 с 


Ш E | 440 IF A$z"L" THEN Z=Z—isIF Z£1 THEN Z-1 
iil 72 Ai 








430 
460 
470 
480 
490 
00 
310 
a 
ME. "H 
ЗО 
340 


guo 


360 
ES 


IF А%="Е" THEN YzY-1:1F Y210 THEN Y=10 
IF Аф="Е" THEN YzY-1:IF Yel THEN Y=1 

IF Хев AND C-Z AND A=Y THEN 540 

IF СС>1 THEN 240 

PRINT:PRINT "THAT'S THE END OF THE ROAD. 


PRINT "YOU ARE TOO LATE...YOUR FRIEND" 
PRINT "HAS DIED WITHIN THE PYRAMID" 
PRINT:PRINT "THE РНАКОАН: S TOMB HAS BECO 


PRINT "...HIS TOMB. .. ": END 
PRINTSPRINT "WELL DONE. sa + " 
PRINT:FRINT "YOU FOUND YOUR FRIEND WITH" 


PRINT "ОМУ" СС: MINUTES OF AIR REMAININ 





| |ROBOT MINEFIELD 


Time now to face the terrors, the dangers, and the horrors of the 
ROBOT MINEFIELD. There you are, peacefully tripping along one 
day in the sun, when suddenly you find yourself trapped in a walled 
area, with a number of manic robots, all bent on your destruction. 

The robots are shown on the display as dollar signs, the H is you, 
and the asterisks (*) are mines which are deadly to both you and 
robots. Robots, pretty pretty clumsily programmed, can detect you, 
but they cannot detect mines. Therefore, your salvation lies in getting 
a mine or two in between you and the robots, so that when they come 
toward you they'll smash into mines and be wiped out. NES 


С 
i= $ 
T puri p. 1, 
Ј Нед 





pr'o 
ак үт 


The robots have one trick up their sleeves. They can merge into 
one another, so you may think only one robot is approaching you, 


| 
| 





when,at the last minute it splits into two ог more, опе going each way 
around a mine. This is not a game for those who seek the quiet life. 
You can move north, south, east, or west (with north at the top of | 
the screen), and you enter the move you want to make Бу entering 
the initial of the desired direction (so you enter “N” to go north, “S” to 


— ayy. = 


go south and so on). 
20 GOTO 250 | 
20 REM MOVE ROBOTS | 
40 TALLY=O | 
so FOR Еші TO 4 A es | 
50 IF АСВ(Е), С(Е) )=42 THEN TALLY=TALLY+1:GOTO 200 | 
70 Х-В(Е»:Ү-С(Е) i 
80 IF B(E)<D THEN B(E)=B(E)+1 | 
90 IE B(E)2D AND RND(10) 323 THEN B(E)=B(E)-1 | 
100 IF C(E)£F AND ЕМО (10) 33 THEN С(Е)=С(Е) +1 | 
110 IF СХЕ) ЗЕ THEN C(E)sC(E)-1 | 
120 IF B(E)<2 THEN B(E)=2 
150 IF B(E)»14 THEN B(E)=14 
140 IF СХЕ) «2 THEN С(Е)=2 
150 ТЕ C(E)»14 THEN C(E)=14 
160 A(X, Y) #46 


THEN TALLY=TALLY+1:GOTO 200 | 
О THEN А(В(Е)„С(Е)) 2228: 1 


170 IF А(В(Е),„С(Е)): 
GOSUB 3OÓO:GOTO 910 


180 IF A(B(E),C(E))z 


190 А(В(Е)„С(Е)) «228 
200 NEXT E | 

210 IF TALLY<CH THEN TALLY=CH 

220 CHzTALLY 

230 IF TALLY=4 THEN GOSUB 300:GOTO' 970 
240 RETURN 

250 GÜSUE. 530: КЕМ INITIALISE " 
260 GOSUE 3OO:REM PRINT MINEFIELD 

270 GOSUE ХО: КЕМ ROBOTS MOVE 

280 GOSUB 420:REM HUMAN MOVE 1 
290 GOTO 260 1 
*OO REM PRINT MINEFIELD a 
519 PRINTCHRS (29) ; 3 
320 IF TALLY?O THEN PRINT2480,"DEAD ROBOT TALLY: "TALLY | 
330 IF TALLY?0 THEN PRINT СНЕФ (28); 4 
550 FOR В=1 TO 15 | 
560 БОҚ С=1 ТО 15 

570 PRINT СНЕФСАСВ,0)):" "; 


42 
20 


& RO TOUR 


a 





А 


380 NEXT C 
590 PRINT 
400 NEXT B 
410 RETURN 
420 REM PLAYER MOVE 
430 A(O,F)-46:E$S-INEEY: 
440 АФ-ІМЕЕҮФ 
450 IF Agen THEN 44¢ 
455 SOUND 51,1 R 
460 IF A$-"." AND руз THEN D=D-1 
465 IF аве а" AND D>2 AND F»2 THEN D=D-1:F=F-1 
а Ir Аве" " AND Dz14 THEN D=D+1 
175 IF A$z"S" AND D»2 AND FEc14 T 

"в" x | THEN D=D-1:F=F+; 
480 + mer, AND Ғ<14 THEN E=F+1 ратан 

5 $-"X" AND 0514 AND F«14 THEN D= =F 
490 IF A$z"M" AND Е>2 THEN F-F-| dost dens ip Me 
D с A$2"2" AND р<14 AND Fè? THEN D=D+1:F=F-1 
JOO IF А(р, Е) =42 THEN боба xen. am- p 
ои oe GOSUB 300:GOTO 990 
520 RETURN 
530 REM INITIATE 
550 DIM A(15,15):B(4).f 
560 CLS : у таа 
570 PRINT:PRINT "PLEAS | 
E ARIN LEASE STAND BY FOR А MOMENT..." 
610 REM FLACE WALLS 
620 FOR В=1 TO 15 
630 FOR С=1 TO 15 
640 A(B,C) 46 
650 IF B-1 OR B=15 OR Csi Г 15 | 
Emo 5 С=1 ОК С=15 THEN A(B,C)-88 
670 REM PLACE MINES 
680 FOR В=1 TO 20 
690 C=RND (13) 
700 D=RND (1) 
710 IF A(C,D)-88 TH | 

= 3 ТНЕМ 690 

720 А(С, 0)=42 
750 МЕХТ 
740 DATA 4,4,1:,8,8,2, 12,7 | 
750 REM PLACE ROBOTS | 
760 FÜR Е=1 TO 4 | | 
770 D=RND(13)+1 | 








| 780 F=RND(13) +1 | x | | NOUGHTS AND 


790 IF A(D,F)<246 THEN 770 


= эру CROSSE 
810 A(B(E),C(E))=228 | 











li 820 NEXT E 
(0 930 REM PLACE HUMAN | | 
| " и dile | та МА | | I'm sure that NOUGHTS AND CROSSES (Tic-Tac-Toe) needs no 
| ui 860 IF А(0,Е) <>46 THEN 850 | iatrodichon More a a prostato minci plays turiy well; bút nofana 
||| E ; ; о | Iu . ` 
! | 870 A(D.F)=200 | а а : pre ictable manner, so you stand a fair chance of winning a 
| вво CLS:RETURN | This mat ; 
| ІШІПТІ | is may not sound like а big deal. However, many NOUGHTS 
г E 890 REM HUMAN AT D,F | AND CROSSES prog: plici rn РЕДУ ринде 
E . $00 REM ROBOTS АТ ВСЕ) „ССЕ) programs have been written so that a draw is the 
E | ||| | 910 КЕМ END ОҒ GAHE 
Шы. ! || 920 PRINT3480," THE ROBOTS HAVE GOT YOU!!" 
E | 925 SOUND 16,3:S0UND 16,2:80UND 13,4:80UND 18,2 
~ | ІШ 927 SOUND 16,5:SQUND 13,6 | 
BM m 930 СН=0: TALLY=0 | 
dc B [ШҮ | 940 аф="" x | 
EM | 950 IF INKEY%<>"" THEN 950 | | 
e ІІ 960 GOSUB 570:60Т0 260 | 
Ш 970 РКІМТЭ480,"  YOU'VE DEFEATED THE ROBOTS! !" 
| M 980 GOTO 930 
||| | 990 PRINT3480," YOU'VE RUN INTO А MINE":SQUND 1,8 
D 1000 GOTO 950 i 
1 x 
|| 1 
! | 
|| | | 
1. | This program decides who will go first in each game, and re- 
||| i sponds swiftly to your moves. You move just by entering the number 
of the square into which you want to move. 
Let's see NOUGHTS AND CROSSES in action: 
125 AM 
aos o0 | 


| ; 7 в? = LE zu 














80 


TERRES GD кое И р D x 0 
КДЕ mo N = 


11775 A DRAW! 


Here’s the program listing: 


20 CLS 

90 DIM А(9) 

95 FOR T=1 TO 9:A(T)=0:SOUND T,1:NEXT T 

100 ТЕКАО (0) 

105 IF Т>.7 THEN PRINT "I'LL HAVE THE FIRST MOVE" 
110 IF Téz.7 THEN PRINT "YOU HAVE THE FIRST МОМЕ" 


аге жайы АНЫҒЫ ж.ж mr E > 








115 FOR 221 TO 1000: NEXT: CLS 

120 IF T?.7 THEN 160 

125 IF INKEY$<>"" THEN 125 

150 50508 750 

140 60508 480 

150 50508 670 

160 60508 750 

170 GOSUB 480 

180 IF А(5)=0 THEN А(5)=1:60Т0 130 


190 REM ТО COMPLETE ROW/BLOCK 
200 [=] 
210 B=] 


220 IF Bz1 THEN Х=1:ү=2:1=3 
230 IF В=2 THEN Х=1:ү=4:1=7 
240 IF Bz3 THEN Х<1: 755: 159 
250 IF B=4 THEN Х=5:127 


260 (=! 

270 IF A(X)=D AND A(Y)=D AND A(Z)=0 THEN A(Z)=1:60T0 130 
280 IF A(X)=D AND А(Ү)-0 AND A(Z)=D THEN А(Ү)=1:6070 130 
290 IF A(X)=0 AND A(Y)=D AND A(Z)=D THEN A(X)=1:60T0 130 
500 IF B=1 THEN Х=Х+3:ү=ү+3:1=1+3 

310 IF B=2 THEN XzX41:YzY41:2224 

320 IF C43 THEN СЕС+1:60Т0 270 

550 IF B<4 THEN В<В+1:60Т0 230 

340 IF 042 THEN 0=0+1:60Т0 210 

550 REM MOVE AT КАМООМ 

560 B=] 

570 D=INT(RND(0) £9) 1 

380 IF А(С)=0 THEN A(C)=1:GOTO 130 

590 В=В+1 

400 IF BX21 THEN 370 

410 В=0 


420 В=В+1 

430 IF А(В)=0 THEN А(В)=1:6070 130 
440 IF BC? THEN 420 

450 6050В 750 

460 PRINT:PRINT"IT'S A DRAW" 

470 БОТО 650 


480 REM WIN CHECK 
490 FOR Bz1 TO 4 
300 IF Bz1 THEN Х=1:ү=2:1=3 








| 510 IF Bz2 THEN Х=1:1=4:1=7 Е МАП МЕ 7 R 
| | 520 IF B=3 THEN 1511125: 159 | А. A 1! | A A 
| 530 IF Bz4 THEN X=3:1=7 | | | 
| DLE READS THE | 
| сс) IF ACX)=A(Y) AND ACY)=A(Z) AND 8000520 THEN 610 : ЖЬ 
| | 540 IF Bel THEN Х=Х+3:Ү=1+3:12143 
( | 570 ТЕ В=2 THEN (=X+1:Y=Y+1:1=1+1 
| ||| 580 NEXT C 
| | 590 NEIT В | 
ІП | 500 RETURN | 
||| | 610 REN THE WINNER! 
ШИ |! 520 РКІКТ | 
||| || | 630 IF А(Х)=1 THEN PRINT "I'M THE WINNER!” МЕ 
I | 640 IF A(X)=2 THEN PRINT "YOU'RE THE MINNER:' " | 
l MIN 650 FOR 0-1 TO 1000:NEXT 0 | 
С | ІШ 660 GOTO 95 | 
АН 570 КЕМ PLAYER MOVE | 
T mW 675 IF INKEYSO?* THEN 675 | 
ES E I i 680 PRINT 9 450, "ENTER YOUR MOVE" | 
EEUU 590 AS=INKEYS al 
ІШ 700 IF A$<"1" OR A$>"9" THEN 690 | 
ШІ 710 B=VAL(ñ$) 
рН 720 IF A(B)O0 THEN 690 
ІШ | 725 PRINT 3 450," ' 
ТМ 730 A(B)=2 
| 740 RETURN 











I | 
| ni A e рер 1 How convenient. Not only do you save on "cross my palm with silver" 
||| = ~ | 1 coins, but the output of this program is just about as believable as the 
E a eis E = 4 predictions laid оп you by wandering fortune tellers. | 
| ІШ Ж Madama Zara has a totally unique deck of fortune-telling cards, | 
|| ее ери ( Тһе Hartnell Агсапа, which contains 36 cards. Тһе suits аге Stars, | 
||| | 1 Stones, Shadows, Gems, Dust, and Echoes, and the individual cards | 
Im | are Anchor, Tower, Elvling, Knave, Cleric, and Sovereign. The four | 
TRE | I'M THE WINNER! M cards which are selected, and their relationship to each other, deter- | 
E | 3 mines the fate Madama Zara reads for you. (Actually, it doesn't hap- | 
B | | | 1 | pen like that at all, as it all depends on your wayward random | 
|| га ||| number generator, but you don't need to tell your friends this.) 
| | | | Тһе program begins with а flashy display, then asks for your | 








name and birthdate, and tells you the astrological sign under which 
you were born: 


MADAME ZARA READS THE STARS.... 
x 4k X X XX UE KOK X-X X X Xx x 
MADAME ZARA READS THE STARS.... 
* FOR YOU... 
ж FOR YOU... 
* FOR YOU... 
k FOR YOU... 
* FOR YOU... 
k FOR YOU... 
Ж FOR YOU... 
k FOR YOU... 
Ж FOR YOU... 
x FOR YOU... 
Ж FOR YOU... 
ж FOR YOU... 
Ж FOR YOU... 
ж FOR YOU... 
ж FOR YOU... 
k FOR YOU... 
Ж FOR YOU... 
k FOR YOU... 
Ж FOR YOU... 

QU kor ORE а ГИ 

АНАТ IS YOUR NAME, MY DEAR? DICK SMITH 


WELCOME DICK SMITH, TO DAME ZARA*S HOUSE 


OF MYSTICISM. s. WHERE THE VEIL OVER 
THE FUTURE IS MOVED BACK... 
« » JUST FOR A MOMENT 


PLEASE TELL ME WHEN YOU 

WERE BORN. .. AS NUMBERS 

THE MONTH FIRST (1 ~ JANUARY TO 
LZ =, DECEMBER) ИИ 


THANE YOU, DICK SMITH 
NOW WHAT DAY OF THE MONTH WERE YOU BORN? 24 





“а 6 А, за k 4 d zd 


“ж 
- зы m ит ` = 
g ` ¿a а ай жа жебір... ч e k; 


DICK SMITH, YOU WERE BORN UNDER 
THE SIGN OF LEO 
Ж 
k 
Ж 
Ж 
Ж 
| | Ж 
NOW I SHALL GAZE INTO THE FUTURE... 
Ж 
Ж 
Ж 


I AM TURNING UF THE CARDS FROM 
THE HARTNELL. ARCANA... 


an NINE BENE SENS EHIS EUM warin алта Берне ВЕНЕ asia Pene n imr wama maa SS SSE: E шшш „шш пшнш "шнш GSE анн кашы нт т к как кенет кар uama masani 


тісін ығы теті imm кн мы _ “те нақ eic? телен іштің X SUN паша ңыз pH rema ішін i жошы кааза Быны пера Seem жым ағы сылы алшы теме ізет 


mam палиш ағала Bid a Бү ВЕР РИ жәнен manua шы ығы d5éh некен Илыш. таған саға 45385 ғы іне питай anas ВЕЧЕ ФЕНЫ pere; тәтті! ee ыға biis dihitt Pinih ағат таған spins ее 


THIS IS THE ANCHOR OF SHADOWS 


fee пате X amy пашла плаза SE ee плита es 434235 HS) келт SS и Sere HESE жетек кыл: ынан ме SES тына тізім жылан eS ғылы ES ES ree ee 


таға desta Феран Oe ышы Rie? OSS бета РЕШЕ manan manaa ызаны BS Бонер бити umm кэш шыла SSS кетет кезін көкі: шалап шыны шыны ides eret ie ee кашан қыш ез sep 


THIS IS THE TOWER OF STONES 


C ODENA SE UH iuum wawa таған данае АНН башти kunam mem URS SEE: не HER Pup manam оңын ішк idees imana m US Бұған Быны шы idm кашан кашап mc верен ње онан 


THIS IS THE TOWER OF ECHOES 


Serb imar капыш: Rari REAL HEE Pica Pune поља rama тыны PRH Башти питаш паша ынын Kies PRES Бети паша паса ma Seth жыне нета пиши amaga Rumid шағы ШЕНЕ Баште Балан талап mumas 


AND THESE CARDS TELL ME... 
DOMESTIC HAPPINESS IS THREATENED 


A LETTER WILL BRING YOU STRANGE NEWS 


^ LONG-AWAITED WISH IS ABOUT TO COME TRUE 


DISAPPOINTMENT IS ON ITS WAY 


ағаш шыма о aren талан Se жәнен SE нен binin тири аа Se өнер Pes Башир eee тата E шыла шал кызы iid G birie - See е-е SEESE ss Gm Smeg r= s 
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THANE YOU FOR CONSULTING THE 
THE WISDOM OF ZARA... « 


mede umb m кенті eS Kasa 
soe аа: ee SS sar 
— тама ce muere ти ee нй а 
урину ___ у _к | к ee ЕЕ ee Gee 


I WOULD LIKE TO SEE YOU  - 
AGAIN SOME TIME, DICK SMITH 


Here’s the program so you can go into the fortune- telling business 
for yourself: 


10 REM MADAME VZ-ZARA READS THE CARDS 

20 GOSUB 770:COLOR 2, 1:CLS 

30 PRINT:PRINT "WELCOME ";4$;", TO DAME":PRINT"ZARA’S HOUSE OF"; 
40 PRINT " MYSTICISM...":PRINT "WHERE THE VEIL OVER THE FUTURE" 
50 PRINT "IS MOVED BACK..." 

b) PRINT TAB(7);"...JUST FOR А MOMENT" 

70 FOR Ү-1 TO 500:NEXT Y 

80 PRINT:PRINT "PLEASE TELL ME WHEN YOU" 

90 PRINT "WERE BORN...AS NUMBERS" 

100 PRINT "THE MONTH FIRST (1 - JANUARY TO". 

110 INPUT "12 - DECEMBER)";BI:IF ВІСІ OR 81212 THEN 80 

120 PRINT:PRINT "THANK YOU, ";A$ 

130 INPUT "NOW, WHAT DAY OF THE MONTH WERE YOU BORN";B2 

140 IF 8201 OR 82731 THEN 120 

150 B=1001B1+B2 

180 CLS 

170 FOR Ү-і TO 3O:PRINT TAB(Y); "#":50000 Y/2, 1:NEXT Y 

180 PRINT:PRINT A$;", YOU WERE BORN UNDER" 

190 PRINT "THE SIGN OF "; 

200 IF B>=101ANDB<=1200RB)=1223ANDB<=1231 THENPRINT"CAPRICORN" 
210 IF B»-121 AND 86-219 THEN PRINT "AQUARIUS" 

220 ТЕ 852220 AND B¢=321 THEN PRINT "PISCES" 

230 IF B)=332 AND В<<420 THEN PRINT "ARIES" 

240 IF B)=421 AND 85-521 THEN PRINT "TAURUS" 

250 IF В)=527 AND B(-621 THEN PRINT "GEMINI" 

20 IF Ву=622 AND 85-723 THEN PRINT "CANCER" 

270 IF B)=724 AND 86823 THEN PRINT "LEO" 

280 IF 822824 AND B¢=923 THEN PRINT "VIRGO" 

290 IF 8924 AND B¢=1023 THEN PRINT "LIBRA" 

300 IF B>=1024 AND 8<1122 THEN PRINT "SCORPIO" 
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310 IF D>=1123 AND 8551222 THEN PRINT "SAGITTARIUS" 
320 FOR Y=1 TÜ SO:PRINT ТАВ (ү); "$": РОВ T=1 ТО 85: МЕХТ Т:МЕХТ Y 
530 PRINT "NOW I SHALL GAZE INTO THE FUTURE. . . . " 
540 FOR Yz1 ТО 50: РК1КТ TAB(Y); "1":FÜR Т=1 TO 85:NEXT T:NEXT Y 
550 PRINT "I АМ TURNING UP THE CARDS FROM" 

360 PRINT "THE HARTNELL ARCANA..." 

570 FOR T=1 TO 500:NEXT T 

580 FOR Y=1 TÜ 4 

590 ñ=RND16)-1 

SAN PRINT fpc а а IE M zn 

410 PRINT "THIS 15"; 

420 IF А=0 THEN PRINT "THE ANCHOR "; 

430 IF A=1 THEN PRINT "THE TOWER "; 

440 IF A=2 THEN PRINT "THE ELVLING "; 

450 IF A=3 THEN PRINT "THE KNAVE "; 

450 IF 854 THEN PRINT "THE CLERIC "; 

470 IF A=5 THEN PRINT "THE SOVEREIGN "; 

480 A=RND(6)-1 

490 IF А=0 THEN PRINT "ОР STARS" 

200 IF ñ=1 THEN PRINT "OF STONES" | 

310 IF 852 THEN PRINT "OF SHADOWS" 

320 IF A=3 THEN PRINT “ОР GEMS" 

950 IF 854 THEN PRINT "OF DUST" 

340 IF A=5 THEN PRINT "OF E 

В Панта о о ине” s ы 

960 FOR T=1 TO 500:МЕХТ Т 

570 NEXT Y 

380 FOR Т=1 TO 1000:NEXT T 

390 PRINT:PRINT "AND THESE CARDS TELL ME..." 

600 FOR T=1 TO 1000: МЕХТ T 

610 PRINT:PRINT A$(RND410)) 

620 FOR T=1 TO 1000: МЕХТ T 

630 PRINT:PRINT BS(RND(10)) 

640 FOR T=1 TO 1000:NEXT T 


. 650 PRINT:PRINT С8СККО (101) 


660 FOR T=1 TO 1000:NEXT T 

670 PRINT:PRINT D$(RND(10)) 

680 FOR T=1 TO 1000:NEXT T. 

690 PRINT '=———— Y у 
700 PRINT "THANK YOU FOR CONSULTING THE" 
710 PRINT "^ WISDOM OF ZARA..." 
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720 FOR T=1 TO 2000: МЕХТ 

ТОЕТ а че визесвинна пуне ке ===> 

740 PRINT:PRINT "I WOULD LIKE ТО SEE YOU AGAIN" 
790 PRINT "SOMETIME, ";A$ 

760 END 

770 REM INITIALISE - V2300 VERSION 

780 DIM A$(10),D$(10),C$(10) , D$(10) 

790 COLOR 2,1:80UND 12,2:SOUND 1,1:80UND 5,2:CLS 
800 FOR T=1 TO 10 

BLO PRINT "$ 3$ $ 2 3 $ 3 $ $ $ 3 $ 3 1'*:50UND T,1 

820 PRINT "MADAME ZARA READS THE STARS.." 

830 NEXT T 

840 FOR T=1 TD 20 

850 PRINT TAB(T);"% FOR YOU..." 

850 NEXT T 

870 FOR T=1 TO 1000:NEXT T 

880 INPUT “WHAT IS YOUR МАНЕ, MY DEAR ";A$ 
890 CLS 

900 FOR Т=1 TÜ 10:READ AS(T):READ В%(Т) 

910 READ С%(Т) : READ D$(T):NEXT T 

920 RETURN 

950 DATA "A SUDDEN SHOCK","GREAT JOY IS NEAR" 

940 DATA "ñ PARK, AND А SPECIAL FRIENDSHIP" 

950 DATA “DISAPPOINTMENT IS ON ITS WAY" 

960 DATA "YOU ARE CLOSELY PROTECTED FROM HARM " 


970 DATA "THERE IS A CHANCE ТО STOP ILL-FEELINR" 
980 DATA "6000 FRIENDS ARE NEAR" 

990 DATA "DISTRUST THOSE WHO WOULD ADVISE YOU" 
1000 DATA "THE MOON IS IN А GOOD ASPECT — FOR YOU" 

1010 DATA "SUCCESS IN SPECULATION IS LIKELY" 
1020 DATA "CONFIDE IN THOSE NEAR YOU" 

1030 DATA "SUCCESS IN ALL VENTURES IS INDICATED" 
1040 DATA "А MYSTERY WILL SOON BE SOLVED" 

1050 DATA "A LETTER WILL BRING YOU STRANGE NEWS" 


1060 DATA "GOOD LUCK WILL BE YOURS TODAY" 
1070 DATA "HIGH HONOR IS ON ITS WAY" 


1080 DATA “DOMESTIC HAPPINESS 15 THREATENED" 
1090 DATA "THE CLOUDS ARE GATHERING", "STRENGTH IS ON YOUR SIDE" 
1100 DATA "SOMEONE IS WATCHING YOU WITH LONGING" 


1110 DATA "FAMILY QUARRELS LIKELY" 
1120 DATA "THE SUN IS RISING ON YOUR HOPES" 
1130 DATA "EVIL CONSEQUENCES MAY BE AVERTED" 
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1140 DATA "THERE IS A CHANCE TO MAKE UP А QUARREL" 


1150 DATA "YOUR STRUGGLES ARE TO BE REWARDED" 

1160 DATA "YOU WILL BE TREATED GENTLY TODAY" 

1170 DATA "А LONG-AWAITED WISH IS ABOUT TO CO | 
ME TRUE' 

1180 DATA "SUSPICION IS FOCUSED ON YOU" 


1190 DATA 
1200 DATA 
1210 DATA 
1220 DATA 
1230 DATA 
1240 DATA 
1250 DATA 
1280 DATA 
1270 DATA 
1280 DATA 
1290 DATA 


“GOOD HEALTH WILL BE YOURS” 

"FULFILLMENT OF A DREAM IS JUST AROUND THE CORNER" 
"BEAUTY COMES A-CALLING" 

“8000 TIDINGS ARE ON THEIR WAY" 

"THE CURRENT BAD SITUATION WILL NOT LAST LONG" 
"LOSS OF PROPERTY IS PROBABLE” 

"YOU GET THE CHANCE ТО WARD OFF EVIL" 
"RICHES THROUGH PROPERTY ARE INDICATED" 

"А MINOR FAILURE WILL TURN TO SUCCESS" 

"I SEE А SAFE BULGING WITH MONEY FOR YOU" 
"8000 NEWS IS ON ITS WAY", "BEWARE OF FLATTERY" 











-NIMGRAB 


NIMGRAB is a game which seems easy at first, but is the very devil 
| to play ... and win. You and the wily computer take turns taking | 
ІШІ | | | 
| 
| 


————— ---- 


objects away from Ше screen. There is а limit to how many you сап 

| | (аке away each move (апа this limit changes from game to game, що 

| | although it does not change within а particular round of (һе рате). ||| 

- | | Тһе winner is Ше person who manages to force the other player to 
св | | remove the last object. 
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Опсе you see it in action, you'll understand how to play it. Тһеп 
|| | you сап start working оп perfecting а method of actually beating the 
Un | | computer. Here is NIMGRAB: 

| 


П | 10 REM NIMGRAB 

ІШ 20 (15 

||: | 30 M=0:E=0:I=RND(8)+12 
| | 40 IF 21INT(1/2)=1 THEN 1-14 

E | 50 Hz34RND(2) 

||| | 60 PRINT "THE MAXIMUM YOU CAN GRAB IS"H 

|| | x 70 GOSUB 270 ми | 
ІШ | BO IF Е)0 THEN PRINT "YOU TODK"E", AND I TOOK'O 
B š 90 FOR K=1 TO 1 

n | š 100 PRINT Ка ТЕ RND(10)>8 THEN PRINT 





110 NEXT K 
120 0508 270 
130 PRINT "AND HOW MANY WILL YOU GRAB?" 

135 P$=INKEY$ 

140 EzVAL CINKEYS) 

150 IF ЕСІ OR ЕН OR E)Z THEN 140 

150 PRINT:PRINT"SO YOU WANT TO GRAB"E 

170 1-1-Е 

180 60508 270 

190 IF 1<1 THEN GOTO 320 

200 Qz2-1-INTU2-1)/ 011) ) 2 (H1) -INT(RND (2) ) £INT(RND (2) ) 
210 IF 01 OR (DH THEN 200 

220 60508 270 

230 11-0 

240 IF ІСІ THEN PRINT'I GRABBED THE LAST ONE SO YOU — WIN'!":END 
250 605/8 270 

260 6070 60 

270 PRINT 

280 PRINT "HEEL HH EH LH E E HU 

290 PRINT 

300 FOR 051 ТО 500:МЕХТ 0 

310 RETURN 

320 PRINT "YOU BRABBED THE LAST ONE " 

330 PRINT „#60 I WIN!!":FOR 151 ТО 500:NEIT 7 

340 SOUND 16,3:SOUND 16,2:60080 13,4:SOUND 18,2:S0UND 16,5 
350 SOUND 13,6:END 
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|| LAS VEGAS HIGH 


ал: VEGAS HIGH. You need only decide how much you'll bet be- 
ore pulling the handle on the machine (which you do by pressing the 
spacebar) and the reels will whirl away. за 


Your winnings—as you'd expect—are related to the relati i 

| > D AE e relative dif- 
ficulty of the various combinations coming up. The computer bei 
up the chatter as the game, and your wealth (or poverty) unfold. 
Here's the making of a million (or so): | | 


10 REM LAS VEGAS HIGH 

20 6050 1110 :REM INITIALISE 

50 60508 870 :REM PLAYER INPUT 

40 60508 520 :REM OPERATE SLOT MACHINE 
J0 IF CASH(1 THEN 90 

60 IF CASH>2500 THEN 290 

70 6070 30 
80 REM titii 
90 REM BROKE 
190 REM Ши 














110 60508 410 
120 PRINT "THAT'S THE END OF THE LINE,” 
130 PRINT "OH ONCE MIGHTY GAMBLER..." 
140 60508 410 

150 PRINT "YOU'RE STONE, FLAT BROKE!!' 
160 60508 410 

170 PRINT "PRESS "Y" IF YOU'D LIKE ТО" 
180 PRINT "HAVE ANOTHER 60 АТ BREAKING" 
190 PRINT "1111! LAS VEGAS HIGH ''!!!" 
200 PRINT "(OR PRESS 'N' IF YOU WISH TO":PRINT ,"LEAVE)" 
210 A$=INKEY$ 

220 IF A$O"Y* AND ОН” THEN 210 
230 IF A$="Y" THEN RUN 

240 PRINT:PRINT "OK, PUNTER..." 

250 60508 410 

2:0 PRINT "THANKS FÜR THE GAME!” 

270 END 

280 REM НІН 

290 REM BROKE THE BANK 

100 КЕНІН 

310 60508 410 

320 PRINT "WELL DONE, GAMBLER!'!" 


330 60508 410 


340 PRINT "YOU'VE REACHED OUR HOUSE LIMIT" 
350 PRINT "SO WE'LL HAVE TO THROW YOU QUT 
360 PRINT "PEOPLE WITH LUCK LIKE YOURS GIVE" 
380 PRINT "OUR CASINO A BAD NAME, ......" 

390 6070 160 

400 REM 11117 

410 REM DELAY 

420 REM ШИ 

450 FOR P=1 ТО 1000: КЕЈТ P 

440 РКІКТ:РКІКТ 

550 RETURN 

450 REM пи 

470 REM DELAY TWO 

480 REM Пи 

490 FOR P=1 ТО 1000: КЕХТ P 

300 RETURN 

SLO КЕННЕН 

520 REM OPERATE SLOT MACHINE 

550 REM Пипи 
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340 (15 

220 BOSUB 410 

550 PRINT пи Јел саване ваши танак аа A 

3/0 PRINT "1"; 

980 FOR M=1 TO 3 

290 GOSUB 460 

600 НЕКМО (46) 

610 IF AC2 THEN PRINT А$(4) ::C(M) z1 

620 IF AD AND АСБ THEN PRINT A$(3)5:C(0)22 

630 IF 829 AND AC12 THEN PRINT A$(1);:C M)=3 

640 IF А›11 AND А20 THEN PRINT A$(2);:C (M)=4 

550 IF 8219 AND 851 THEN PRINT A$(5);:C(M)s5 

660 IF AJO THEN PRINT А$ (6); :С(0) =6 

670 PRINT "t";:SOUND 31,1 

680 NEXT M 

690 GOSUB 410 

700 WIN=0 

710 IF C(1)#0(2)+C(3)=3 THEN 1220 

720 IF C(1)=C(2) AND C(3)=C(2) AND C(2)=2 THEN 1240 

750 IF (10-012) AND C(3)=C(2) AND С(1) (1 AND С(2)<У3 THEN 1250 
740 IF C(1)=C(2) OR Ci1)=C(3) OR С(2)<С(3) THEN 1240 

750 IF C(3)=2 THENPRINT"A BELL AT THE END IS А BONUS! "sWINSWIN+. 6 
760 IF C(1)=3 AND C(3)=3 THEN PRINT"AN APPLE AT EACH END IS 5000" 
769 IF C(1)=3 AND C(3)=3 THEN WINSWIN*.5 

770 IF C(1)24 AND C(2)=3 AND C(1)-4 THEN GOSUB 1270: WINZWIN*. 4 
780 GOSUB 410 

790 WIN=INT(WINSBET) 

800 IF WINDO THEN PRINT "AND YOU'VE WON"WIN"!":CASH-CASHeWIN 

810 IF WIN=0 THEN PRINT "AND YOU'VE LOST $*BET:CASH=CASH-BET 

820 BDSUB 410 

830 IF CASH>O THEN PRINT "SO NOW YOU HAVE $"CASH 

840 GOTO 460 

850 REM 

850 КЕНІН 

870 REM PLAYER INPUT 

880 КЕНІН 

870 CLS 

700 60508 410 

710 IF CASH¢300 THEN PRINT "HI THERE, GAMBLER!" 
920 IF CASH)299ANDCASH(500 THEN PRINT "YOU'RE DOING WELL TONIGHT" 
950 IF CASH)S99 AND СА8Н(900 THEN PRINT"LADY LUCK HAS CERTAINLY"; 
955 IF CASH>599 AND CASH(900 THEN PRINT" SMILED ON YOU!" 
740 IF CASH?899? AND CASH(1200 THEN PRINT "THE FATES ARE BEING"; 














|| 945 IF CASH)B99 AND CASH(1200 THEN PRINT " EXTREMELY KIND" | | 
! 950 IFCASH)1199 THENPRINT"IT IS 50 GOOD TO SEE AN EXPERT АТ WORK | ga R OULETTE 
WM 950 BOSUB 470 f. | 
n 970 PRINT:PRINT "YOU HAVE $*CASH 


| | 980 PRINT: INPUT "HOW MUCH DO YOU WANT ТО ВЕТ"; ВЕТ | 
ІШ! 990 IF ВЕТУСАЅН THEN PRINT "YOU AIN'T GOT THAT MUCH!":GOTO 980 ROULETTE is the king of gambling games. This computer versi 
| s C ersion, 


||| 1000 60508 410 which faithfully f 
(1! E | y follows the rules of r i | 
| | | Ho ind de SIR, $'BET"IT IS!" | Баа test your favorite “system.” Жетен ыты диоди 
| "e ст: "PRESS THE SPACE BAR ТО PLAY" 0 to 36 Mate ніне Th ee pte es eredi 
Hu 1040 IF INKEY$<>" " THEN 1040 RECO бсш zero. Lhe program speaks faultless French, as do 
| ||| | 1050 FOR Tet ТО 40 MES SIEURS БА inviting you to place your bet with the words 

| | 0 š , ЕАІТЕ5 VOS JEUX (Gentlemen, place your bets). 

| 










1050 PRINT TAB(T/2); "1111141 STAND BY niu | Note that the difference between the E А 
PT European and А | 
is discussed at the end of this introduction. А кирен 














1070 PRINT 
ІТ 1080 NEXT T - 
ІШ 1090 RETURN 
| 1110 REM INITIALISE 
Ш 1130 CLS 
Ш 1140 DIM 46 (6), С(6) 
1150 CASH=250 | 
| 1180 FOR 8-1 TO 6 | Я 
ІШ 1170 READ А8 (В) 
||| 1180 NEXT В 

НІШ 1190 RETURN N à ^ 
" 1200 DATA "$APPLES", "ACHERRY#", "BELL", "! IBAR: !”" ; 1144 АІ 22858, UR 

||| 1210 DATA *<<LEMOND)", "LLPLUN7" | И у КЕШЕ ER т 
1220 PRINT'THREE BARS!!!";60SUB410:PRINT"THAT'S JACKPOT STYLE! !" | ACE Ғы т. ДВА гае: ER e 
1230 WIN=WIN+9;60TO 750 CUR š 
1240 PRINT "THREE BELLS!!!":WIN=WIN+3.9:6070 750 
1250 PRINT "THREE OF А KIND*:WIN=WIN#3,5:G0T0 750 | 
1260 PRINT ">> А PAIR <<":WIN=WIN+.7:60TO 750 | 
1270 PRINT "THAT OLD "CHERRY,BELL, CHERRY" " | 
1280 PRINT "COMBINATION IS ONE OF MY FAVORITES!":RETURN 5 
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Some of the numbers оп а roulette wheel are red and the balance 
are black. Among other bets, you can bet on the ball stopping on any 


mber, or any black one. ге 
ја "After the computer has told you how many chips you have, and 


asked you to place your bets, you'll be expected to enter a letter be- 


u wis qit (withdraw from 
and О. Q tells the computer you wish to quit 
mi pipi на other letters determine which kind of bet you wish 


to place, according to this key: 

Аша single number 
B—two adjoining numbers 
С. three numbers in adjoining columns 
D—six numbers in adjoining columns 

E—four numbers іп a square 

F— numbers 1 through 12 ("The First Twelve") 
G— numbers 13 through 24 ("The Second Twelve") 
H— numbers 25 through 36 ("The Third Twelve") 
I— numbers 1 through 18 ("Low") 

J—numbers 19 through 36 (“High”) 

K— 12 numbers in a horizontal row 

L—two adjacent horizontal columns 

М--апу red number 

М--апу black number 

О--апу even number 

P—any odd number 


Q—to quit the game 
The red numbers are: 


72582257091 похот YE 14 16, 18, 19, 21, 23, 25, 
2.30, 32 94, 36, 


Тһе black numbers аге: 


2, 4, 6, 8, 10, 1 1, 
28.729. 215232235 
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Here's what a roulette table looks like: 


NOIR | РАТЕ PASSE 
34r 31b 28r 25r 22b 19r 16r 13b 10b 7r 4b Ir 0 
35b 32r 29b 26b 23r 20b 17b 14r 11b 8b 5r 2b 
36r 33b 30r 27r 24b 21r 18r 15b 12r 9r 6b 3r 00 
ROUGE IMPAIR MANQUE 


As you can see, the table has three words above, and three below, the 
numbers. These are noir (black), pair (even), passe (numbers 19 
through 36), rouge (red), impair (odd) and manque (numbers 1 
through 18). 


A European roulette table has the numbers 1 through 36, plus 
zero, while the American table has a double zero as well. It comes as 


quite a shock to innocent folk like me to discover that while the house 


take on all bets on the European wheel is 2.70% on all bets (except 
the even money chances, where it drops to 1.4%), the house take оп 
the US wheel is almost doubled to 5.26%. Our wheel, as you know, 
follows the US system. 

Here's the program in action: 


AT THE VZ300 ROULETTE WHEEL... 
ин. YOU HAVE 1000 CHIFS 


ЖНЕ KEG KAS KHE EHK ФНЖ dox EHX 


MESSIEURS, FAITES VOS JEUX (A ~ 0) 
7 M 


HOW MANY CHIPS? 408 

Xd KHE жив KHE EHk SHK PHK EHX 
THE WHEEL 15 SPINNING... 

X35 KHE KEG ЖЕ ФНЖ ФНЖ PRK EHX 
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KH$ ЖЕФ ЖНФ KD ФНЖ ФНЖ HH PHX 
THE BALL STOFFED ON 27 


CONGRATULATIONS, YOU HAVE WON 408 CHIPS 


Keb ЖЕФ KH XS SH ФНЖ ФЕЖ BHX 


AT THE 92200 ROULETTE WHEEL... 
...YOU HAVE 1408 CHIPS 


x45 ЖЕ ЖЕФ ЖЕФ SRK ФНЖ SHH qx 


MESSIEURS, FAITES VOS JEUX (à ~ 0) 
? E 


HOW MANY CHIPS? 290 » 
FIRST NUMBER IN SQUARE? 15 


X35 xb KH ЖЕФ ФНЖ ФНЖ ФНЖ HHK 
THE WHEEL IS SPINNING... 


ЖЕФ KS ЖЕ ЖЕФ SK ФНЖ ФНЖ ER 
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1 
20 
10 
21 
2 


ЖЕФ ЖЕФ ЖЕ ЖЕ HK ФЕЖ ФЕЖ ФИЖ 

THE BALL STOPPED ON 4 

SORRY, BUT YOU LOST ON THAT ROUND... 
ЖЕ XG ЖЕФ ЖЕФ BK BHR ФНЖ BAEK 


AT THE VZ300 ROULETTE WHEEL... 
. . YOU HAVE 1118 CHIPS 


ЖЕФ ЖЕ ЖНЖ ЖЕФ EHX ФНЖ ФЕЖ jk 


MESSIEURS, FAITES VOUS JEUX (A ~ 0) 
* J 


HOW MANY CHIPS? 1118 
ЖЕФ MES ЖЕФ ЖЕФ ФНЖ ФЕЖ ФНЖ HX 
THE WHEEL IS SPINNING. а = 


KH ЖЕФ жив KHE ФНЖ ФНЖ ФНЖ BHX 


7 
13 
24 
“| 
AE 
LN 
LO 
1 
A 


101 


























102 


10 REM VZ ROULETTE 
20 DIM В(24): CHz1000 
зо CLS:PRINT:PRINT "АТ THE VZ300 ROULETTE АН 


ЕРЕ с мог | 
40 PRINT ТОВС2):"... YOU HAVE": СН; "CHIFS": GOS 


UB 1010 


420 
430 
440 
450 


| 440 


470 
480 


PRINT "THE В 
IF C--1 THEN 
PRINT C 
ҮсО: -і 


IF B(E)-C THEN Y=1:GOTO 480 
E-E-1:GOTO 46€ 


ЈЕ E«24 THEN 
IF. YzO THEN 


ALL. STOPPED ON"; 
"DOUBLE ZERO":G 


PRINT 


20 


Sas Te ШЕ ||| || 
E [Ln E | 50 PRINT:PRINT" ^ MESSIEURS, FAITES 
pne ||| 2 ЖЕ | VOS JEUX (à ~ Q)" 
||| ai | 60 INPUT A$:1F A$="" THEN 60 
ED = 30 70 A-ASC(A$)-64:IF Agi ОК 4217 THEN 60 
| "MI + 20 Зо IF A=17 THEN 860 
E a 90 FOR 0-і TO 24:В(0)х-99:МЕХТ @:SOUND 4,1 
||| E 100 PRINT:INPUT " HOW MANY CHIPS";N 
|| | 110 IF №1 THEN 120 w 
1 | | = "I | Г ACCEPT TH " 
ү kde жаз X4$ tés SX SHE SEK Sk | 115 PRINT "I САММОТ ACCEPT a te | 
EN. THE BALL STOPPED ON 5 ғу ак МЕ БЫ Era 200 x 
EN. SORRY, BUT YOU LOST ON THAT ROUND... 120 IF N<=GH THEN 150 — 
п. 125 PRINT "YOU DON'T HAVE THAT МАМҮ!": БОТО 100 
EN E U ЗО снеСН-М 
А Ə Ф HX ФЕЖ фи | is 
b: D | dide VM uda NACE E | 140 IF А=1 THEN GOSUB 590 | 
т ETT 150 IF A-2 THEN GOSUB 600 | 
! ДЕЛЕ 160 IF A=3 THEN GOSUB 610 | | 
m YOU HAVE LOST! =a TH по ат | 
| D ne v OESTE 170 IF А=4 THEN GOSUR 630 | 
| ia ране 180 ТЕ А=5 THEN GOSUB 050 | 
E YOU HAVE LOST: 190 IF A=& THEN GOSUB 670 | 
|| In г : ' I ` + am | | 
| YOU HAVE LOST! | е Sam | | 
n КОЕТ бетт | 200 IF A=7 THEN GOSUB 680 | 
ІШІП vOU HAVE LOST! | 210 IF 68 THEN GOSUB 690 | 
! UM VOU HAVE LOST! | 220 IF 4-9 THEN GOSUB 700 | 
| 7 ка Ah 02 230 IF A=10 THEN GOSUB 710 | 
РАИ ||| YOU HAVE LOST! "PM K | | Зи ! 
| Уа UE Lost: | 240 IF А=11 THEN GDSUE 720 | 
ІРІШІ 5 : A 250 IF A=12 THEN GOSUB 740 | 
l oi YOU HAVE LOST! | eg Me фас | 
| АЦА VENUE MOST 260 ТЕ А=15 THEN GOSUB 790 | 
l" Та BUE COST! ; 270 ТЕ А=14 THEN GOSUB 810 ! 
1 УПЫ HAVE LOST! | 280 IF А=15 THEN GOSUB 840 | 
WE Да | | 290 ТЕ A=16 THEN GOSUB 850 | 
ІШ | 300 GÜSLUB 1010 | 
| | 4 LH | : : : - у || 
||| kib ЖЕФ HS ЖЕФ ФНЖ ФНЖ BHK HHK 4 EN SEM ак ROCA OR и | 
T | : 520 REM Ж THE WHEEL SPINS Ж | 
li | ] We | у | i У | 
| БР аси r CHIES | 330 GOSUB 1010:FOR Bei ТО 50:C=RND((39)-2 | 
T Ж :FRINT TAB(RND (24) ) 5; | 
||| ||| | And here's the listing, so you сап ҒАТТ your own JEUX: F 340 IF C--1 THEN PRINT " 00": ВОТО 350 | 
! 1 545 PRINT C | 
|: | 350 FOR T=1 TO B:NEXT T:SOUND В/5,1:МЕХТ B:GOSUB 1010 | 








490 
OQ 


510 
520 
550 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 


640 
450 


55у 


860 
670 
980 
6490 
200 
210 
720 
730 
740 
750 
760 
770 
280 
290 
800 
810 
320 
530 
340 
850 


860 
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ИТЕТАТ (ООЖМ+. 5)  СНЕСН+АТ +М 
РКТМТ: PRINT "CONGRATULATIONS, YOU 


HAVE WON" WI: "CHIFS” 


THAT ROUND" 


GOTO зо 
PRINT "SORRY, BUT YOU LOST ON 
GOSUB 1010:FOR 21 ТО LOOO:NEXT Z 
IF СН<1 THEN 890:REM BROKE 
IF СН>2000 THEN 960: REM BROKE THE вамк 
GOTO 50 
REM ЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖЖ 
КЕМ ЖЖ PLACING THE BETS жж 
INFUT "WHICH NUMBER" s E C1) :O0D=35: RETURN 
INFUT "WHICH TWO NUMBERS"; B(1), B(2): Ор=17: RETURN 
INPUT "WHICH NUMBER IN LEFT COLUMN": D 
FOR E-o TO ath(E+1)=D+Es NEXT E: 00:11: RETURN 
INFUT "FIRST NUMBER OF SIX"sDsFOR Ехо TO 5 

:Н(Е+1) #0+Е : NEXT E 
00: 5: RETURN 
ІМРОТ "FIRST NUMBER IN SQUARE":D:FOR Е=0 ТО 3 

: Е (Е+1) =р+Е 

IF E=2 THEN р=р+1 
NEXT Е: 008: RETURN 
FOR Еші TD l2sB(E)=E:NEXT Е: OD=2: RETURN 


FOR Есі ТО 
FOR Есі ТО 
FOR E=1 ТО 
FOR E=1 TO 
INPUT "LOW 
FOR Exo TO 
INFUT "LOW 
INFLUT "LOW 


12:B(E)=Ë+12:NEXT E: ODzs2: RETURN 
a: В (Е) Е +24; NEXT Е: 0D=2: RETURN 
18: Е (Е) =E: NEXT Е: 001 : RETURN 

18: В (Е) +Е+ 198: NEXT Е: 001  ВЕТИКМ 

NUMBER AT END OF LINE": р 

Li: В(Е+1) = 5 ЖЕ+0: NEXT Е: ODz2: RETURN 

NUMBER FIRST COLUMN" : D1 

NUMBER SECOND COLUMN" ; D2 


IF ABS(D1-D2) > THEN 740 


FOR Е=о ТО 


l1: B(E+1)=34E+D1:B(E+13)=3xE+D2:NEXT ES 


00, S: RETURN 


RESTORE 

FOR Есі ТО 
RESTORE 

FOR Есі ТО 
FÜR Есі TO 
FOR E=2 ТО 
FOR E=1 ТО 


PRINTs PRINT 


16:КЕАЮ BCE) : МЕХТ E: 00= 1 s RETURN 


18:КЕАр 7: МЕХТ Е 
18: READ Н (Е): NEXT E: О0 1; RETURN 
26 STEP 2: В(Е/2) +Е NEXT Е: 001: RETURN 
29 ӘТЕР 2: B (E+1) /2) Е; МЕХТ Е 
: OD 1: RETURN 
"YOU аве WITHDRAWING FROM THE" 


s 

7 E 
>. 

^ »| 

Қ” 
4, 


a 


Le ЕЕ» 
acia А 


E Pu 


eq. 


870 PRINT "GAME WITH"; CH; "CHIPO" 
880 SOUND 2, 1:SOUND 20, 1: END 
890 FOR J=1 TO 15:PRINT TABGD $"YOU HAVE LOST: 
:ŠDUND J,1:NEXT J 
730 GOSUB 1010:PRINT "үпү HAVE RUN OUT DE сы. 
- | | OF такыр 
760 FÜR J=1 TO 9:PRINT ТАВ (Ј/2) з "YOU Have m ee 
BROKEN THE BANKI". МЕ 
1000 END нді 
1010 PRINT " к96 жав kae kit ЖЕФ X44 жи" 
1020 FOR K=1 ТО 400: МЕХТ Ка RETURN 
1040 РАТА 115152759; 12,14,16,18,19,21,23, 25. 
| 27,30,32, 34, 36 
1050 DATA 2,4,6,8,10,11,13,15,17,20,22,24 24, 
28,29,31, 33, 35 

















Fun with your Printer 


x |J) CELESTIA | | 
| | 

| 
Тһе first of the two programs іп this section is CELESTIA, which you li 
can run either on your TV screen, or on the screen and to the printer li 
at the same time. It produces an infinite series of evolving patterns. | \ 
The patterns develop according to the rules of the famous com- " 
| puter game of LIFE, developed by John Conway while at Gonville || 
Е and Caius College at Cambridge іп the UK. Martin Gardiner spread | 
4 the game throughout the world when һе wrote about іп Scientific || 
3 American in October, 1970. | 
| He | 
[te 

> | 


~ 


RARER астыма сыны 


Ñ | 
" | 


% 
E 669+ pt 


Нд за = — 





5 | 
1 | 
| In LIFE, cells are born, grow and die according to rules which | | 
a Conway invented. Each cell on a grid (the colony of cells is imagined | | 
ma to be evolving on a grid) is surrounded by eight others, and the state | 


of those eight other cells dictates what happens to the cell in question 
| E in the following generation. | 
106 a. 107 








t= mom 
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Тһе rules which роуегп the evolution of (һе cells are as follows: 


• If a cell has two or three surrounding it, it survives to the next 
generation 

• If there are three, and just three, full cells next to an empty 
one, a cell will be “born” іп that empty space in the next gener- 
ation 

е Any cell with four of its neighboring cells occupied dies in the 
next generation 


Don't worry, you don't have to know the rules, as the computer 
interprets them quite happily by itself. The rules produce patterns 


which are far more attractive (and far less predictable) than you could 


possibly imagine by reading the rules. There is just one extra twist in 
this E eret wich makes it even more effective. CELESTIA actu- 
ally prints out four colonies each time a colony evolves. The original 
colony is in one quadrant of the screen, and the other three quarters 
of the screen contain reflections of the original one. 


CELESTIA is incredibly effective, as you can see: 


Ж Ж Ж Ж 
Ж Ж Ж Ж 
XXXX Ж Ж ЖЖЖЖ 
Ж ЖЖ KK Ж 
X X K ЖЖЖЖЖЖ ЖЖЖ 
Ж Ж Ж KKK KK Ж ж Ж 
Ж x ЖЖ Ж KK x ЖЖ Ж Ж 
Ж ЖЖ KK X 
Ж ЖЖ ЖЖ x 
Ж Ж ЖЖ Ж ЖЖ X ЖЖ * Ж 
k Ж Ж ЖЖЖЖЖЖ Ж Ж Ж 
X X Ж XXKKKK Ж Ж X 
Ж ЖЖ KK Ж 
ЖЖЖЖ Ж Ж ЖЖЖЖ 
Ж Ж Ж Ж 
Ж K Ж Ж 








AP я Pn 
TORT WS te E > 
Б E 4 = TEN 
————— — 
ғ 


ттен amar вит Pau Passi азаа виза REIR шырын maman у EGGS Yanama ту у“ НЫНЫ _ онан жылап цала: шышы: талша s шашка s 


ЖЖ ЖЖЖЖ Ж KK ЖЖ Ж ЖЖЖЖ ЖЖ 

Ж ЖЖЖЖ X ЖЖ Ж ЖЖЖЖ Ж 
KK ЖЖ ЖЖЖЖЖЖ ЖЖЖЖ KKKKKK ЖЖ ЖЖ 
ЖЖ ЖЖЖЖЖЖЖЖЖЖ Ж ЖЖЖЖ Ж ЖЖЖЖЖЖЖЖЖЖ ЖЖ 
Ж ЖЖ Ж Ж K ж Ж Ж ЖЖЖ 

Ж Ж X X Ж Ж X X Ж Ж 

ЖЖЖ ЖЖЖЖЖЖЖЖЖЖЖХЖ ЖЖ ЖЖЖЖЖКЖЖЖЖЖЖ ЖЖЖ 
ЖЖ Ж KXK Ж XXX ЖЖЖ Ж KKK Ж Ж Ж 
K Ж Ж ЖЖЖ Ж ЖЖЖ ЖЖЖ K KKK Ж Ж Ж 
ЖЖЖ ЖЖХЖЖЖЖЖЖЖЖЖЖ ЖЖ ЖЖЖЖЖЖЖЖЖЖЖЖ KKK 


K * k K K XXX Ж Ж 
k ЖЖ X Ж K Ж X Ж ЖЖ Ж 
KK ЖЖЖЖЖЖАЖЖЖЖХ Ж KKKK Ж ЖЖЖЖЖЖЖЖЖЖ ЖЖ 
ЖЖ ЖЖ XXKNXX KK ЖЖЖЖ ЖЖЖЖЖЖ KX KX 
Ж ЖЖЖЖ X ЖЖ Ж ЖЖЖЖ X 
ЖЖ ЖЖЖЖ x ЖЖ ЖЖ Ж ЖЖЖЖ ЖЖ 
Ж ЖЖЖ k Ж ЖЖЖ Ж 
Ж Ж Ж ЖЖ Ж Ж Ж 
ж Ж k Ж 
ЖЖ ЖЖ 
Ж ЖЖЖ Ж Ж Ж Ж ЖЖЖ Ж 
Ж ik ЖЖЖ Ж ЖЖЖЖ Ж ЖЖЖ Ж Ж 
Ж ж Ж Ж ЖЖ Ж K Ж X 
Ж ЖЖЖЖ Ж Ж Ж Ж ЖЖЖЖ X 
Ж ЖЖЖЖ Ж х ж Ж ЖЖЖЖ Ж 
Ж Ж Ж Ж ЖЖ Ж Жж Ж 
Ж Ж ЖЖЖ Ж ЖЖЖЖ Ж ЖЖЖ x Ж 
Ж KKK Ж Ж Ж Ж ЖЖЖ Ж 
ЖЖ ЖЖ 
Ж Ж Ж Ж 
Ж Ж Ж KX Ж Ж Ж 
Ж ЖЖЖ K Ж ЖЖЖ Ж 
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This is the listing to give CELESTIA designs on your microcom- 
puter: - 


10 REM CELESTIA 

20 GOSUE 450:REM INITIALISE 

то GOSUB 60 :REM PRINT OUT 

до GOSUB 280: КЕМ EVOLVE 

зо GOTO 50 | 

60 CLS 

80 FOR X=2 TO 9 

оо FOR Y=2 TO 19 

100 PRINT CHR$(A(X,Y)); 

110 NEXT Y 

120 FOR У=19 ТО 2 STEP -1 

130 PRINT CHR$(A(X,Y))5 

140 NEXT Y 

150 PRINT 

160 NEXT X 

170 FOR Х=9 TO 2 STEP -1 

180 FOR Y=2 ТО 19 

190 PRINT CHR$(A(,Y2); 

200 NEXT Y 

210 FOR Үз19 TO 2 STEP -1 

220 PRINT CHRS(A(X,Y)) 5 

230 NEXT Y 

240 PRINT 

250 NEXT X 

250 IF N=0 THEN 640 

270 RETURN 

ово FOR Хе? TO 9:ҒОК Y=2 TO 17 
290 C=O 

хоо IF А(Х-1,У-1) #В THEN C=Ü+1 
“10 IF A(X-1,Y)-B THEN C=C+1 
20 IF A(X-1,Y+1)=B THEN СЕС+1 
xQ IF A(X,Y-1)=B THEN C=C+1 
x40 IF А(Х,У+1) #В THEN СеС+1 
50 IF A(X+1,Y-1)=B THEN C=C+1 
“ad IF А(Х+1,У) #В THEN C=C+1 
=70 IF A(X+1,Y+1)=B THEN С=С+1 
лао IF A(X,Y)=B AND С<>5 AND С<>2 THEN BCX, Y) =E 
x90 IF A(X,Y)=E AND С: THEN B(X,Y)=B 
400 NEXT Y,X | 
410 FOR X=2 TO 9:FOR Y=2 TO 19 
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| 
Lid 
қ! 
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E š 
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Lx 
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E 
і 
ule 
74 ` 
EX. 
Ex | 
E 
(7% 
Құ” a 
УК. 
pe | 
e 
| 
Bot 
"gl 
t 
а 
T Г 
P 
dei 
ћ 
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4:20 
4350 
440 
450 
460 
470 


ДЕО 
490 
310 
cha 
аа. 
340 
500 
6] 
570 
5980 
390 
600 
510 
eco 

AO 
540 
645 
630 
560 
670 
S80 
670 
700 
710 
720 
759 
740 
750 
769 
770 
780 
790 
Воо 
gio 
gao 

A0 
640 
850 


A(X, У) =B(X,Y) 

NEXT Ұ,Х 

RETURN 

REM INITIALISE 

CLS 

PRINT "PRESS THE SPACE BAR":PRINT"WHEN YOU" КЕ 

m READY TO BEGIN" 


IF INKEY$<> " " THEN 490 
PRINT "DO YOU WANT А COPY ОМ" 
PRINT "YOUR FRINTER (Y OR ND" 
A$=INKEY$: IF A$z» "N" AND АФ > "Y" THEN 550 
IF A$-"Y" THEN №0 

CLS 

E-ASC("X"):EsASC(U ") 

DIM 4(10,20),B(10,20) 

FOR Xe2 TO 9:FOR Y=2 TO 19 
A(X, Y) SE 

IF БМО (0) >. 45 THEN A(X,Y)=B 
ВОХ, У) зА (X, Y) 

NEXT Y,X 

RETURN 

LERINT " _ e a e e e e e e " 
REM 6 SPACES, 54 -°S 
LPRINT:LERINT:LERINT " "s 
FOR X=2 TO 9 

FOR Y=2 TO 19 

LPRINT CHR®(ACX,Y))3 

NEXT Y - 

FOR Y=19 TO 2 STEP -1 

LFRINT CHR$(A(X,Y)); 


NEXT Y 

LPRINT:LFRINT " "s 
NEXT X 

FOR X=9 TO 2 STEP -1 


FOR Y=2 TO 19 

LPRINT CHRS(A(X,Y)) 3 
NEXT Y 

FOR Үз19 TO 2 STEP -1 
LPRINT CHR#(A(X,Y))3 


NEXT Y 

LPRINT:LFRINT " "3 

NEXT X 

LPRINT 

RETURN | 111 
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99 
"PSHS 5 СЕ Я 
2955599 = А 4 q 
Š в 8 ХАДАА И | 
52525 2 dy да WHWWNWN Ç а я 
ІЕ2ЕС 9 S ç 6 ^ H q 3 H 
роон + ХА WW 14444444 
Pres 9 „У я < 5 5 S W š 
= = | ! 
25222 Š "eg g — RHHHHHNH WRWRRRR 
c = 
00203 + | W 
we 2800 HRH 00000 
SESgs 2 š 2: 2 9 0 T 
Б с. | I I ; ZZ 
5424506 ПРЕ ЛО МА ИТ p; d 0 ӘӘ 
SEES Š RN ЈЕ pos d е 
АА 5 00000 ç се 
SEP8Y 5 ' 8 Sr iar us 
<= | [ги] 
pow © Е | 
| Б ЕЕ в? ps HHHHHHH ЛАЛА ЧН | E vg-us 
Igape 8 H "EE e ur... 
О соочи E H в ва A 8 UN ес s 
4. 58888 > š D Ар: сы ГЕКЕ 
| аар HHHHHHH 6 S : ЛАЛА 
55 = g с 
за FE s Ë Е 1 SS 8 4 
ші 35565 g І a d да 
== С + е Е 1111111 5 E 98 
| ча з 8 L I I v 
.. < 2958 g I ЕІТТІТТІ 4444444 qaqaq 
m ume? > а I I q q 
355 3 q q 
[| ЕЕЕ Ao 
ааааааа 
c HU Hane ee ви ===" mm giis « ж кеше Gss 
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270 LPRINT"MMMMMMM" : LPRINT" M':sLPRINT" ММ": 


= " | РЕ " " 
10 КЕМ BILLBOARD | 275 LPRINT"MMMMMMM" : RETURN pic M 
| | 280 LPRINT"NNNNNNN":LIPRINT" NN":LPRINT"  J NN" 


This is the listing for BILLBOARD: 


20 REM 
50 GES | 23 | ñ | h py ^" *LPRINT" | " 
40 INFUT"ENTER YOUR MESSAGE"; A$ 1 SERA PE E А : RETURN по прав и. 
50 B=LEN (A$) 1 “usha RINT" 00000": (РЕТМТ" О O":LPRINT"QO о" 
60 FOR С=1 TO B 1 a JEA O":LPRKINT" 00000" ; RETURN 
70 D=ASC(MID$ (A$, С) ) -64 Eo ЖИЕ „РРРРРРУ: LPRINT "OO PO P'sLPRINT" Р p» 
80 IF D--18 THEN GOSUB 410:GOTO 130:REM РЕКТОО(.) n Eod RINTI PRE Ae MEERANT РР" zs RETURN 
90 IF D=-31 THEN GOSUB 420:GOTO 130:REM EXCLAMATION(!) MEE >15 LPRINT"QQ ° O ЫМ 002 ÜU:LPRINT"Q Q Q" 
100 IF D=-32 THEN GOSUB 430:GO0TO 130:REM SPACE що LPRINT"RRREEEVII Ба A GGOGQQ" : RETURN 
110 IF D<1 OR 0526 THEN GOSUB 1000: КЕМ SPECIAL и... „ПАКААА" : LPRINT R R':LPRINT" RR R" 
120 GOSUB 500 | 339 LPRINT" R R R'ELPRINT"R — RR":RETURN 
130 LPRINT:NEXT C | 559 LPRINT" 5 SS":LPRINT"S S S":LPRINT"S 6 си 
140 END || 339 LPRINT"S S S":LPRINT" 88 S":RETURN 
150 LFRINT"AAAAA":LFRINT" A A":LPRINT" A A": EE ит A PET INT. T's LPRINT"TTTTTTT": 
LPRINT" A n" | спо КРАШ, T":LPRINT" T": RETURN 
155 LPRINT"AAAAA": RETURN | | 590 LPRINT" UUUUUU" : LPRINT"U":LPRINT"U":LPRINT"U"; 
160 LPRINT"EBBBBBB":LPRINT"B RB  B":LPRINT"E B B" | E LPRINT" (ІНІ 
165 LPRINT" ВВ ВВ": КЕТОКМ ЖЕР SETORN cux ea | 
170 LPRINT " CCCCC":LPRINT "C C":LPRINT"C с" ШЕ 259 LPRINT VVVV":LPRINT " VV"iLPRINT "y" | 
175 LPRINT "C CusLFRINT " C С": КЕТОКМ ШЕ... LPRINT w KC NE SLPRINT " уу! | 
180 LPRINT"DDDDDDD":LPRINT"D D":LPRINT"D р" EN ^ -RINT VVVV" : RETURN | 
185 LPRINT"D D" Е ГРЕТМТ" DDDDD" ч RE TURN WA | 879 SERENE” WWWWWW S " LFRINT"U" а LFRINT" Alp " " СРЕТАТ "у" | 
190 LPRINT"EEEEEEE":LPRINT"E Е E":LPRINT"E E E" | 379 LPRINT" WWWWWW":RETURN | 
195 LPRINT"E E":RETURN a 530 LPRINT"X X":LPRINT" XX XX":LPRINT" — x" | 
200 LPRINT"FFFFFFF":LPRINT" F F'":LERINT" F Е" EE OS "n " SLPRINT" XX XX" | 
205 LPRINT" Е F":LPRINT" F": RETURN BE our. X": RETURN За: | 
210 LPRINT" GGGGG":LPRINT"G G":LFRINT"G G" | | УУ а LPRINT Y"SLPRINT"YYyy* | 
215 LPRINT"G Б — G":LFPRINT" GG 6": RETURN Г - n Face сұқ :LFR1INT" Ми 
220 LPRINT"HHHHHHH":LPRINT" —H";LPRINT” H"; _ ве а ве она _ DUK wapa И 
СРЕТМТ" М" T E 405 LPRINT" | С ИРИГ E Z Z":LPRINT"Z 7 7! 
225 LPRINT"HHHHHHH": RETURN — "dh T"Z Z Z"1LPRINT"Z ZZ":RETURN | | 
а БАРЕ Mati rash te : L9 BPRINTU..UILPRINT".."ILPRINTiLPRINT:LPRINT: RETURN | 
LERINT"I I";LPRINT || 820 LPRINT"!! !!!!":LPRINT"!! ініге РЕТМТ: | 
ЕО ВЕЩИ 4 . 2 LPRINT: RETURN 
240 LPRINT:LPRINT"JJJ":LPRINT"J J":LPRINT"J J" | 430 LPRINT:LPRINT: LPRINT: LPRINT: RETURN | | 
245 LPRINT" JJJJJJ":RETURN | 900 IF D=1 THEN GOSUB 150:RETURN:REM "А" | 1 
250 LPRINT"EKKEKEK":LPRINT" | K":LPFRINT" K К": || S10 IF D=2 THEN GOSUB 160:RETURN:REM "R" | 
LPRINT" к к“ 520 IF D=3 THEN GOSUB 170:RETURN:REM "C" | 
255 ГРЕТМТ"К K" s RETURN i Eo I 24 THEN 60508 180:RETURN:REM "D" | 
260 LPRINT "| "SFOR Z= LER "pn EH ` Б 0=5 THEN GOSUB 190:RETURN:REM "E" || 
О LPRINT "LLLLLLL":FOR 2-1 TO 4:LPRINT "L ME 552 IF D= THEN GDSUB | | 





114 :МЕХТ Z: RETURN ME 





200: RETURN:REM "F" | | | 







540 IF 0=7 THEN GOSUB 210:RETURN:REM "б" 
570 IF П«8 THEN GOSUE 220: RETURN: REM "Н" 
S90 IF D=9 THEN GOSUB 250: КЕТОКМ: КЕМ "I" 


SFO 
600 
610 
620 
630 
640 
650 
660 
670 
580 
690 
700 
710 
720 
730 
740 



























т? 


FAO 
END 
1000 RETURN 


D=10 
0=11 
Dz12 
D=1 Š 
D=14 
Dz19 
D=16 
D=17 
D=18 
D=19 
Dz20 
D= 21 
D= 2:12 
Dz23 
===> 

о 


Dz26 


THEN 
THEN 
THEN 
THEN 
THEN 
ТНЕМ 
ТНЕМ 
ТНЕМ 
ТНЕМ 
ТНЕМ 
ТНЕМ 
ТНЕМ 
ТНЕМ 
ТНЕМ 
ТНЕМ 


ТНЕМ 


ТНЕМ 


(S0SUEB 
GOSUE 
GOSUE 
GOSUE 
GOSUE 
50506 
GOSUE 
GOSUB 
GOSUE 
GOSUHB 
(SOSUE 
GOSUB 
GÜSURB 
GOSUE 
GOSUE 
GOSUE 
GOSUB 


240: RETURN : REM 
250: RETURN: REM 
260: RETURN: REM 
270: RETURN: REM 
280: RETURN : REM 
290: RETURN: REM 
300: RETURN: REM 
S10: RETURN: REM 
320: RETURN: REM 
A30: RETURN: КЕМ 
340: RETURN: REM 
350: RETURN: REM 
360: RETURN: REM 
370: RETURN: REM 
180: RETURN: REM 
390: RETURN: REM 
400: RETURN: REM 


"үү" 
"к" 
{н 
"m" 
1 N! 
nn 
"T " 
"га" 
"mU 
HC" 
"Tu 
"үүн 
ni n 
"ij" 
о Ы 
"үн 
ит 


Some games could not have existed without computers. 
Think of the whole range of Space Intruder types of games and 
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: hd м 3 : 
pl eo I Poa 2-5 ы м the Расрегвоп ones. These could һауе not come into being before the | 
а а Еч Е = ta computer—using а TV-like screen for output—was developed. Many 
a а н о UB У other games, of course, predate the computer Бу thousands of years. 11 
ma eee e EE S "ooo һа м However, more and more of these traditional games һауе now been | 
computerized, with board games being ав popular with computer || 
games players as they were with players іп precomputer days. 
In this section of the book, we have a generous crop of board 
02 0 0 = = HHH HHA m mi | 
жанаса H Еч = m | games: 
A a eiu = ЕСЕ # E m mmm | 
Qu : | | 
ce AWA: 7 =: H Еч m m ° GOMOKU 
>; = H гч a m 
v uu > = H HH ~ m ЕЎ * FOUR IN A ROW 


| ° CHECKERS 

° AWARI 

° KNIGHTSBRIDGE 

* REVERSI (OTHELLO) 


| |GOMOKU 


You'll ind GOMOKU ап easy game to learn, but one which is almost 
impossible to win. The computer plays extremely well in this pro- 
gram, which is based on one written by Graham Charlton. 


direction, while the computer is trying to do the same. 

Have a look at these board positions from the start of one game I 
played against the program. Studying the printouts will show you how 
the game unfolds, and will show you how to play it: 


эзе ЛЕ Lu SANA 2 3 


on naw EL. м = 
oa Ou Sw rn = 
Co — OY ша п — 
oa Aw Его = 
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pi || Це. 
| 
| ИНТ | 
| ШІ: 
|||| | 
Ж! 14 
BE i 
ІНІ 
| jl 














on C^ Ui fw = 


10 
20 
AQ 
4o 
30 
60 
70 
go 
90 


15:23 278.6 Т 20 : т 23.4:5-6-1 
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Here's the listing for your very own game of GOMOKU: 


КЕМ GOMOKU 


GOSUEB 
GOSUE 
GOSUB 
GOSUE 
GOSUEB 
GOSUE 


730 
130 
270 
130 
350 
150 


IF L>% ТНЕМ РКІМТ:РКІМТ 
GOTO 40 


100 
110 
120 
I 
150 
160 
1/0 
180 
190 
200 
210 
220 
z 3 Q 
„АО 
250 
50 
20 
2580 
290 
ACH 


Ега 

E-E-N:IF А(Е)<22 THEN RETURN 
E=K+1:GOTO 110 

FRINT СНКЮ%(28) 

PRINT TAB(7); "1 2 š 4 Š é 7 686" 
FOR А=1 TO 8: РКТМТ ТАВС2):;8:;" "; 
FOR В=а TO 9 

M=A AXI OHE) 

ЕК М = ЕЕ THEN FRINT C 73 

ТЕМЕН THEN FRINT "H 73 

IF М=46 THEN PRINT "`, "5 

NEXT В 

РКІМТ ñ 

МЕХТ А 

PRINT AR Ави 827546 ŠSš 6 7 4" 
RETURN 

РКІМТ:РКІМТ 

PRINT3416, PLEASE ENTER YOUR MOVE... 
INFUT G 

(5=(5+1 


Сз «е =< Су» 


со • 


aon Ou гә м 


"I WON БОТО 1040 


" s PRINT 





prn PN 


e 


D Саад 


"D 
MT 
А ғ 
ул, 
|| у | 
Y; 
mE 
ден"! 
же 
за 
ма 


510 
20 
AGO 
340 
AE 
A60 
370 
580 
E 
400 
410 
420 
450 
440 
450 
460) 
470 
Ago 
490 
200 
Slo 
2420 
30 
cuo 
JU 
360 
WEAR, 
380 
290 
600 
910 
620 
630 
540 
650 
650 
670 


680 
690 
200 
710 
720 
750 


IF G«12 OR 6289 OR A(G)Zz746 THEN 280 
L-H:FRINT32416,L$: PRINTO448, L$ 

ACG) =Z 

RETURN 

А=(5 

Leet 

FOR X=1 ТО 4:k=02N=X (X) 
GUSUB 190 

N--N:GÜSUE 100 

IF EL THEN ЕК 

NEXT X 

IF.L.3. THEM РКІМТЕРЕІТМТ 
T=1 

ЈЕ. Тя>2 THEN Z=( 

IF Т=2 THEN ФЕН 

Со HI =O; Leo 

ЕОК ñ=12 ТО 89 

|| С) 

IF АХА) 244 THEN 600 
FOR Х-і ТО 4: Ке 0 N=X (X) 
208508 100 

N:-Ns:GOSUB 100 

IF ЕЗІ THEN Н1зО: ок 


"YOU WIM!!"; END 


—— rra 


IF “РК THEM 570 


IF T=1 AND 144 ОК 


M=M+ 1 
МЕХТ Х 
IF МЕ +Н1 
Hi=M: (=ñ 
МЕХТ А 


IF H1< >O THEN 680 
T=T+1: IF Т<>4 THEN 


A=] 
G=RND (77) +15 


IF ACG) 46 THEN 680 

аза+ 1: IF А100 THEN 640 

РКІМТ:РКІМТ "I CONCEDE THE GAME": | | 
"ТО ñ MASTER! ! "ЕМІ 


FRINT 
А6) =С 
=» А=0: L=0 
FOR Х=1 TO 4 
K=O 
N= X (X) 
GOSUB 100 


THEN 600 


440 | | 


| 
|| 
(Те2 ОК Тез) AND 1<2 THEN 870 | 
| 
| 
| 























| LEES -]FOUR IN A ROW 
ШІ 750 IF КМ. THEN L=K | | - w 
|| x 760 МЕХТ Х | 
ШІ 770 RETURN | 
||| | ІШ 7во Пе фа" "REM 25 SPACES | In this game, FOUR IN A ROW, as its name suggests, the aim is to 
ІШ | 790 DIM &(100), X (4) | get four of your pieces (the H's) in a line in any direction, before the | 
1 M ІШ 900 FOR C=1 TO 8 | computer (using the C's) manages to do so. | 
| | ||| | 810 FOR B=2 ТО 9 | You indicate your choice of move by specifying the column іп | 
m ТІ 820 А(СЖ1О+В) =46 which you want to move your piece. Тһе piece then drops to the | 
ІІ | вто NEXT В lowest available position within that column. 
| | ||| 840 NEXT С The computer plays this game fairly well, and surprisingly | 
d || | | aso FOR G=1 TO 4 | quickly, considering the number of times it can go through those Opa | 
1 860 READ Z:X(Q)=Z | | within the program. — | 
F 870 NEXT Q | | | 
E 1. 880 DATA 1,9,10,11 г | 
c ||| ан 890 H=ASC("H") sC=ASC("C") | 
(| 900 PRINT:PRINT "ENTER *Y IF YOU WANT THE " | 
c NE 910 PRINT "FIRST MOVE, ^N? IF YOU DON'T" ' | 
lll 920 МЕО М1 x 
ЙІ. 940 АФ-ІМКЕҮФ | ШІНШІ Ет ||| | | 
« E : 950 IF A$42"N" AND A$z2"Y" THEN 930 ШП cR ИИ | | 
SN 260 CLS | 
ГІШ 970 IF A$-"Y" THEN RETURN | 
ІНШІ 980 FOR 0-і TO RND(12) | 
| 990 READ Z | 


|| 1000 МЕХТ Ј 
||| 1010 A(Z)=C 

| 1020 КЕТОКМ 
n 1030 DATA 34,35, 44, 46, 47, 54, 55, 56, 57, 66, 75,84 
|| 1040 SOUND 16,3: SOUND 15, 2: SOUND 15,4 

||| :SOUND 18,2:SOUND 16, 
| 1050 SOUND 15,6: ЕМО 





1 was not particularly pleased when I finished the first hand-writ- 
ten version of this program, because it seemed to me that I had taken 





—— 
5 p 
a XU 


И — — aras. и U UU uU U. U U = 
w —— — - d 


| zl a “brute force" approach to solving the problem. I was sure there | | 
||| Ed would be a more clever way to do it. However, I continued with the | 
| || | isl program, and then entered it into the computer. It won the first game, | 
| | ||| ||| even though it played a little oddly, so I knew I was onto a winner, | 
ІІІ |22 despite the programming approach. Then, when thinking about it | 
|| || Ж later I realized that if the program was correctly structured (ав it was), СІ 
1) 122 E | | | а 








cial ІШІ | 
ve had no redundant code (and it hasn't, as far as I сап see), ran quickly RES S oe ate ааа DUE 
5 and well, it did not need “fiddling” to make the programming more H. СН... H.0H s ча 
tricky. Transparent code is always better than overly clever con- Coi Ev соқ р C 0 C Ha vs 
voluted code which, although it may occupy less space, and may run a с. HCH. H C HH oC Nx H 
few microseconds faster, is almost impossible to modify. | | CCHHHCC CcCHHHCC 
So the program you have here is my “brute force” version. It is HHCCCEH UH НЕ Cc €.€ НЕН 
generously supplied with REM statements so you have little trouble HSB H CGG H Нн С.Н Н G GH | 
in working out what each section of code does. It should also prove ] 2 34 кєр 12.3 а 5-97 ||| 
Ғаігіу simple to modify, once you have played a few games with it 1n || 
its form. | DNE Ua qe ty | | | || 
5 jose: version of FOUR IN A ROW, the computer always apte Thie по sing ДОР NEAN тақа eee || | 
е human to һауе the first move, and bases its initial move on that Jae Љета Ana a 
aqe by the human. You may wish to modify the program so that | d пе M к sr ERR || 
there is ап option for the computer to һауе the opening move. | a ӘБЕН > :REM -ІЗЕ | x 
Before we get to the listing of FOUR IN À ROW, here's one зо GUSUB ебе: КЕМ MEPATE SORNE | 
| layed against the program: | 19 GÜSUB 680: REM WIN СНЕСК 3 
ше Ау 50 GOÜSUE 980: КЕМ HUMAN MOVE | 
NILUS 60 GOSUB 860: КЕМ UPDATE BOARD il 
аруағы сету UAE | Av | 70 GOSUB 680: КЕМ WIN СНЕСЕ || 
ЕСІ t pss матка Зина | во GOSUB 110: КЕМ COMPUTER MOVE | 
қанығу ts OR EUR {| 90 PRINT3320,L$:G0TO 50 | 
ИТО А "T қарат Р 100 REM ЖЖЖЖЖЖЖЕЖЖЖЖЖ ||| 
2 DRE UE МР БӨРТЕ ; -110 REM COMPUTER MOVE 1 
E co a има А” | 120 PRINT3Z20,"PLEASE STAND BY FOR MY MOVE..." | 
ПЪН Нала 4 150 В=10 || 
12 3 1556.1 IET | 140 B=B+1 | 
x 150 IF A(B)=-9 THEN 180 1 
CU UNE шз с eb an 9:6 7 160 IF A(B)=C THEN Х=С: БОТО 210 ||| 
иту ИЧИ: г 170 IF АВ) ЕН THEN ХЕН: БОТО 210 ||| 
ae ш г,» ay ee " 180 IF В<77 THEN 140 | 
агора at eae e Aa ae Ағар Ва | 190 GOTO 480 | 
UN y Paq iva Р ЧЕ" ~ BOO REM OOOO GOOG Kx | 
SCOPE TUN as oe ЖЕТЕР s d i 210 REM FOUR IN А ROW ПАМБЕК/СНАМСЕ 7 ||| 
с Нан O t ке НО но Z + 1 220 REM ACROSS ||| 
16203 ыр 6; T 1935660 7 это IF A(B+1)=X AND A(B+2)=XAND A(E+3)=E AND || 
| | A(B+13)<>E THEN 1220 | 
елей ШЕР ез... à 240 IF А(В-1) =Х AND A(B-2)=X AND A(B-3)=E AND | 
да ОШ NES P EI 7% | “| А(й+ў)<>Е THEN 1230 | ||| 
eat o ои e d 250 IF A(B+1)=X AND A(B+2)=X AND A(B-1)2E AND ||| 
` ` HH ene d n c N. H. z 1 А (В+9) ЗЕ THEN 1240 . n 
EE E H Па уш MI 260 IF A(B-1)=X AND A(B+2)=X AND ACE+1)=E AND ||| 
Нено Не ка H ' E Bi Cau Н FE А(В+11) СРЕ THEN 1250 ||| 
о ЛДЕ 1:23. Др Беба 7 ||| 270 IF A(B+1)=X AND A(B-1)=X АМОА (8+2) ЗЕ AND || 
ma ВВ) А >E THEN 1260 ІІ 


үе! E 37 125 ||| 





280 IF A(B+1)=X AND А(В-1) +х AND A(B-2)-E AND 
A(B+8)<>E THEN 1270 


290 IF A(H-1)-X AND А(В-2) -х ANDA(B+1)=E AND 
ACB+11I4 +E. THEN 1290 


300 КЕМ DOWN 
510 IF Е>20 THEN IF А(В-10)-Х АМПА(В-20) =Х AND 
A(B+10)=E ТНЕМІЗОО 


320 REM DIAGONALS 
550 IF A(B+11)=X AND A(B+22)=X АМОА(В-11) +ЕАМО 
А(В-1) «ФЕ THEN 1240 
540 IF A(B+9)=X AND A(B+18)=X ANDA(B-9)=E AND 
A(B+1)<>E THEN 1280 


550 КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
х60 КЕМ MAKE/BLOCK ТНКЕЕ? 
570 REM ACROSS 
хво IF ACB+1)=X AND A(B+2)=E АМОА(В+12) < ЗЕ THEN 
| MOVE-zH-2:GOTO 650 
390 IF ñ(HB+1)=X AND ñ(B—-1)=E AND ñ(B+9)< >E THEN 
MOVE=B-1:GOTO 650 
400 IF А(В-1) +х AND ACB-2)=E AND A(B+8)< E THEN 
MOVE=H-2:GOTO 450 
410 REM VERTICAL 
420 IF А(В+10) +х AND А(Е-10)-Е ñNDA(B)< УЕ THEN 
MOVEZB-1O0:GOTO 650 
450 REM DIAGONAL 
440 IF A(B+9)=xX AND А(Е-9) -Е AND A(B+1)< >E THEN 
МОУЕлВ-%9:650Т0 650 
450 IF B»11 THEN ТЕ A(B+11)=XANDA(B-11)=E AND 
| А(В-1) СРЕ THEN 1290 
460 GOTO 180 
470 REM ЖЖЖЖЖЖЖЖЖЖЖЖ 
480 КЕМ SINGLE MOVIES 
490 FOR N-1 TO 3 
500 MCN) =O 
510 NEXT М 
320 COUNT-O 
S50 FOR B=11 TO 77 
S40 IF A(R) >C AND АВ) = 2н THEN 600 
550 IF ACB+1)=E AND A(B+11)<>E THEN COUNT=COUNT+1 
:MCCOUNT) =B+1 
260 IF Aà(B—-1)-E AND а(в+9) «ЗЕ THEN COUNT=COUNT+1 
“М(СОЦМТ» =B-1 


126 
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570 ТЕ A(B-10)=E AND A(B)<>E THEN COUNT=CDUNT+1 
PER | :M (COUNT) =B-10 
580 IF A(B-11)=E AND A(B-1)<>E THEN COUNT=COUNT+] 
ГЕ : M (COUNT) =B—11 
590 IF A(G-9)-E AND A(B+1)<>E THEN COUNT-COUNT «1 
ТВ ова : M (COUNT) =B-9 
610 IF СОЏМТ<>О THEN 640 
620 PRINT "I THINK WE SHOULD 

2 % D CALL IT " 
630 PRINT: PRINT: PRINT: END I 
640 MOVE=M (RND (COUNT) ) 

550 A(MOVE) =C 

650 RETURN 
570 КЕМ ШІМ CHECK 
во Хен 
700 He10 
710 В=В+1 
720 IF A(B)<>X THEN 770 
730 IF A(B+1)=X AND ACE+2) =x AN | | 
730 IF A(B+1)= 2)=X AND A(B+3)=X THEN 80 
740 IF В>ЗО THEN IF A(B-10)=X ANDA(B-20)-X до 200 
A cud А(В-ХО)«Х THEN ВО 
750 IF B»33 THEN IF А(В-11)=Х ANDA(B-22)=x Anp 
| E А(В-55)=Х THEN BO 
760 IF B>27 THEN IF А(В-9)=Х AND A(B-18)=x aND 

| А(В-27)-Х THE | 

770 IF В<77 THEN 710 трае ра 
780 IF Х=Н THEN X-C:GOTO 7c 

| „С ( `) 

790 RETURN ү) 

800 REM WIN FOUND 

ВІО PRINT 

820 IF X-H THEN PRINT “you? ve | 
20 IF HEN PRI U'VE BEATEN ME, HUMAN!" 

850 IF Х=С THEN PRINT "I*VE DEFEATED vpi. ON: 

| | 4 

E a ae HUMAN!":SQUND 16, 

853 IF ХЕС THEN SOUND 16,2: SOUND. 13,4: SQUND |, 
у | 18, 2:500М0 16,5 
837 ТЕ Хес THEN SOUND 13,2 : x 
840 END 
850 REM XXXXXXKKKKXK 
8650 REM UPDATE BOARD 

870 PRINT СНЕЖ (28); 

880 FOR K=10 TO 70 STEP 10 
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2170 
FOO 
310 
320 
930 
940 
750 
760 
770 
780 
797) 
1000 
1010 
(Қауча 
] O30 


1040 
1050 
1060 
10970 
1080 
1090 
1100 
1110 
1120 
11:50 
1140 
1130 
1160 
1170 
1180 


1190 
1220 
1250 
1240 
1250 
1260 
1270 


1:300 


PRINT ТАВ (5); 

FOR J=1 TO 7 
PRINT CHR (ACK +3) )5" "s 

NEXT ЈЕРКІМТ 

NEXT К 
CRINT TABS) "I 2 54547 
РКІМТ:РКІМТ 
Riz TURIN 
КЕМ ЖЖЖЖЖЖЖЖЖЖ 
REM HUMAN MOVE 
ЕКІМТшШ2ӘЕ, “YOUR MOVE..."sPRINT 
РКІМТӘЗ2О, "WHICH COLUMN DO YOU WISH то" 
INFUT “MOVE INTO" J 

Zu] 

ZcZLCIOSPRINT3288,L365:PRINT ІЗЕРБІМТ Lë 

іРКІМТ Г: РКТМТ L: 

IF А(2+10) =Е THEN 1030 

IF ACZ)=E THEN ACZ) =H: RETURN 

PRINT@OS84, "YOU САМ" T MOVE THERE" 

GOTO 1000 

КЕМ ЖЖЖЖЖЖЖЖЖЖ 

КЕМ INITIALISE 

CLS 

DIM à(109),M (XO) ,Р (6) 

E-46 

Не? C247 

FOR Bz1 TO 109:А(Е) =E 

Пе Н-1ОЖТМТ(Е/1О) 

IF р=0 ОК 027 OR Beil OR Е>77 THEN А(В) ---9 
МЕХТ В | 

| фи: " Т 
RETURN “КЕМ 51 SFACES 


МОУЕзЕ-3:0650Т0 650 
МОУЕзлшЕ--5:(065070 650 
МОУЕчВ-1:050Т0 650 
МОУЕз --1:(050Т70 650 


MOVE:B-2:GOTO 650 1280 MOVE=E-9:G0TO 650 
1290 MOVEzEH-11:GOTO 650 


MOVE=B-2:GOTO 650 
IF а(Н+20) >E THEN HMÜVE=B+1O: 
GOTO 650 ELSE 220 














| |SHOGUN 


SHOGUN is based on the Japanese board game HASAMI SHOGI. In 


this аде generally played оп the corner of a GO board, you move in 
any direction (forward, backwards, or sideways)ina straight line. Di | 
nal moves are not allowe | nia | 


d. As well, you can jump over a piece (again ina 
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straight line). You сап jump over your own pieces, or an enemy piece. | 
) Тһе jumped piece is not removed from the board. You capture a | 
piece by squeezing it between two of yours. That is, you get one piece 
of yours on either side (except along a diagonal) of a computer's piece, 
and it is removed from the board. A piece is not captured if it moves 
between two of the opponent's pieces. 
Тһеге are no double moves. You do not get an extra move fol- 
lowing a capture. In the original game, the aim is to remove all your 
opponent's pieces from the board. However, this 15 a fairly slow game, 
and could take an eternity if played against the computer in this way. 
Therefore, I've written it so that the game is won by the first player to 
capture six of the opponent's pieces. 
You'll find that the game will more or less teach you how to play 
it just by watching how it moves. Don't forget the fact that you can 
jump over your pieces, or the computer's pieces. This is a recom- 
mended tactic to get pieces well out into the board near the beginning 











М2500: Q HUMAN: О 





of the game to get (һе game moving. 1 


125456789 | 
Dos D OS DOD C C. I 1 
ИСС Со C É H Ж 
DG ЖО к yk y k x6 E 
FX X X X X X X KXF a 
E Xx X X X X X X k t E | 
рож хк Жжжж ж.р 4 
DOE X Ko x * k ГС 1 
EHHHHHHHHHE 1 
аннннннннна и 

123456789 à 


T ФР C) U IT TI G) DH 
e T I зе зе OO ee 


М2500: 1 HUMAN 
FROM (LETTER,NO)? B 
FROM BS TO ^? DS 


D uU (O) Q I Tui 
=I I зе зе зе э зе C) (3) = 
кі зе зе зе зе зе OO MJ 
Іі зе зе зе зе зе СС) 0 
T+ T T зе зе зе 3€ зе C) C) + 
rH T T зе зе зе зе HOO 0H 
~ IL T зе зе зе s C) 0) ~ Г 
~ ID ID зе зе зе зе ж C) C) d 
© T I зе зе зе зе ~ OO 
S T T зе зе se эж 2€ 004 

РО c) D r TI G) Z = 


VZ300: © HUMAN: O 
FROM (LETTER,NO)? AS 


FROM AS ТО? Са 


Ld 


Fj зе зе T эе T зе егісін 
+ T T зе зе C) СГ зе зе жы 
CH зе зе зе Т зе зе Cj зе Су C 
~ То зе T зе Г) зе Cj зе зе ~ 
~ зе T T Озе зе зе Ci зе сън 


А 3€ T T зе зе зе зе ПП 


" 
и 
"т 
DO 


JB T T se зе зе зе OO зе 2 


ы 












1-25 45.4 7 В а | 
гессесзсесгст | 
НЕ БР eS ie es ie ЕН | 
G X Ж X ж ж C X k ж G | 
F Ж Ж Ж Ж ЖС k X k F | 
E £ ek ЖЕ ЖЖ ЖЕ | 
D*X* X X * X k X X XD | 
C X X X X H X ж ж XC il 
EHHHHHHHHHE | 
АННННЕЖННННА | 

1. ар а 9 | 








М2300: O HUMAN: 0 | 
FROM (LETTER,N0)? АЗ 
FROM АЗ TO ? CS 









T UI (31 m [T Tl I = 




















ваг O i. uj a O R < 
D" зе (3 C) зе зе зе T ж зе 0 


Озе »€ 02 T T ж T эе 0 
МО зе зе зе зе (J г T зе ~ 
`0 эе x (1 эє 9€ (J Tx T D 
UT CJ зе C) зе зе зе зе зе жп 
TMA эе гу зе гу T зе + 
Кузе 000 se зе T T зе зе | 
MOL эе >x T эе зе зе гч 
"ч 3 [5 3€ [J зе 3€ T T зе = 


lE (O u Lu C O m < 
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P? C) О 3€ зе зе зе T T зек 
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HUMAN: О 


(LETTER, NO)? Ві 


p 
sam. 


У2500: 


FROM 
FROM Бі TO ? Di 


Here's the listing for SHOGUN: 
"О REM FOR THE INSCRUTABLE VZi3ooO 


HUMAN: 0 
(LETTER, МО)? De 


O 
FROM D2 TO ? E2 


„7500: 


ЕКОМ 


= 

aro ооо 
= АЕ 
= = n m t m m | 
шшосопеос 
С шшш o om 
Cu (Qu DOE бубу 
ap B3 о ~ Сп 
a EE 

шап ‹т 


= эе > T 2 > 
зе 7 I зе зе (D 
s» » I T ~ P. 
зе 3€ IL x 2 +G 
XL ID зе зе зе H] 
зе » зе IT I ~“ 
"e эе ILL Io m 


= ~ ~ T таа 


зе зе 3€ T IL ~ 
Woo in < 


^L THEN 190 


at 
ы” 


О IF ñ(6-10)<>E THEN 130 | | 
125 IF A(3-9)zH THEN IF A(Aà-8)sC THEN В=а-10: 0070 


2 


Ва 


P 


90 REM CAPTURE 


100 A=99 
110 IF ACA) 


1 








Q 


НОМАМ: 


FROM (LETTER, МО) > СӨ 
ЕВ 


O 


М2500: 
FROM Ce TO > 


530 


: GOTO 550 
:GOTO 520 


Н THEN IF A(A+12)=C THEN B=A-10 
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> тшкт 
| z zL 
ыс ig ceo 
ш E Г) ^ч, 
I = ul wv 
= 4 7% ,, 
ш _ il T NS = 
ee = ^ wo ПЦ 
T. чи | ~ ~ ~ 
C =ч ~ – о 
Uu ir 999 
ІІ qc NIT 
"= s $ ~ ~ 
ІШ ас тї 
ыы ны TREI 
қайы, е гі bem 
55 FF BERR 
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133 


:GOTOS40 


4 THEN B=B+1:GOTO 160 


7S IF ACAtSKXC CB) )=C THEN AGYE2XC (B) ) E: Со=08+1 
F B< 


1 
140 I 


HUMAN: 0 


FROM (LETTER,NO) ? B9? 


SROM B9 TU > C9 


1 


М23500: 








190 IF А>11 THEN A=A-1:GOTO 110 | 
200 КЕМ NON-CAFTURE | 619 IF CS2HS THEN PRINT:PRINT "I WIN!":SO0UND 5, 1: ЕМ 





210 CNT=0 4 620 PRINT:FRINT "YOU WIN!":S0UND 10,2:END 
220 CNT=CNT+1 ? 630 REM PLAYER MOVE 
230 A=RND(88)+11 | | 640 INPUT "FROM (LETTER, МО.) "5 АФ 
240 IF A(A)=C THEN 270 A 650 IF At="S" THEN END 
250 IF CNT«200 THEN 220 | 660 IF LEN(A$)4£52 THEN 640 
250 PRINT "VZ SHOGUN MASTER":PRINT I GIVE , | 670 PRINT "FROM "АФ" TO ";: INPUT B$ 
БІЗ m YOU THE VICTORY! "ЕМО E BO IF LEN(B$)<>2 THEN 670 
! Т; Y ң ЗА | 070 Ша 3 _ | 
300 TF aezsCipieii THEN зоо К Инете X 
290 IF A(A+C(B))<>CG OR AC(GHC(ODOZZH THEN 200 3 Rm VAL, ERTGHTS (ва: b GHT$ (BS, 19) | 
295 IF А(А+2ЖС(В))=Е THEN Bzà-2XC(OD:GOTO 350 | d D kin А | 
300 IF А(Аа+С(В)) ЕЕ THEN 330 dE pc ur е ME b | | | 
| Mis IF в<4 THEN B=B+1:GOTO 280 ee 750 IF ACB+1)=C AND A(B+2)=H AND Y<=7 THEN А(В+1) =F | 
| 320 GOTO 250 | ШЕ до тр уз d е: :HS=HS+ 1 | 
I XO REM 92500 MOVES | Ti 7/40 IF AtB-1)zC AND ñ (B—2) =H AND Үж= THEN A(B-1)=E | 
| RO Pr 71 | : HS=HS+1 | 
| 350 БішБ-іОЖ(ІМТІВ/ІО»)» ^ 750 IF В>79 THEN 770 | 
| 360 А(В) =С:А(А) =E | 760 IF ACE+10)=C AND A(B+20)=H THEN А(Б+10)=Е:Н5=Н5+1 | 
|| 470 IF Бі>7 THEN 390 M ||| 770 ТЕ В<51 THEN 780 | 
| 380 IF EM e up piper THEN A(B+1)=E:GS=CS+1 | 775 IF A(B-10)9C AND A(B-20)-H THEN A(I-10)-Es HSzHS-1 | 
||| 390 ТЕ 81<5 ` | ü a 780 RETURN | 
|| 400 IF A(B-1)=H AND А(Б-2)-С THEN A(B-1)=E:C8S=CS+1 | 790 REM INITIALISE | 
НА 410 IF A289 THEN 450 | 800 CLS:PRINT:PRINT | 
! paa 420 IF Дал ара B E e THEN A(B+10) =E:CS=CS+1 Т Qoo IF INKEY$<2"" THEN 805 | 
ПО 450 ТЕ 629 THEN RETUF 24 810 PRINT " PRESS ANY KEY ON YOUR У2200" | 
m 440 IF A(B-10)=H AND A(B-20)=C THEN A(B-10)=E:CS=CS+1 jl 920 N=] | | 
И 450 RETURN ЩЩ 830 мем+а | | 
| ТЫ | 440 REM BOARD FRINTQUT | | |: 840 IF INKEY$="" THEN 850 | 
ІШТЕ 470 CLS ` i| 850 CLSs:sPRINT " PLEASE STAND BY " | 
| ! ІШЕ т - i ЖЕЛЕ "n oH ы 5 HOUND 1 Жа Le SOLUN 8, | | 
||| 480 PRINT ТОВ(5);"1 2 5 4 5 6 7 B 9 | Т 860 FOR Jei TO NrA=RND(10):NEXT J š y mI AE 
ІШІ . 490 FOR Медо TO 10 STEP -10 EP вто CLS | | 
| BOO PRINT TARCS) sCHRS(M/104+64) 4" "4 | 980 DIM А(129),С (4) ( | 
ІІІ!!! 510 FOR Nei TO 9 % 990 Hz72:0-267:E-42 | 
! 520 PRINT СНЕФ СА СМЕМ) ) 3" "; || 900 FOR 2-11 TO 29 | 
B 550 NEXT М 5 910 ТЕ Zz20 THEN Z=21 | | | 
һ ai “40 PRINT СНЕФСМ/10+64) | | 920 А(7)=Н | 
WIE | 550 NEXT M EP 950 NEXT Z | 
m S60 PRINT TAB(S)s"1 2345 467 8 9" | 1 940 FOR Z-31 TO 79 | | 
D 270 PAR ooo id Мај ДИЊ таван И HUMAN: "HS Қ puo IF 1O0XINT(Z/10)22 THEN 2=2+1 | | 
| 2915 I 22 > | - | || 700 ñ (Z)=E | 
E. 600 RETURN EB 970 NEXT Z | || 
1 134 | | | 
||| A e | 























990 IF 2:90 THEN Z=9%?1 | 
1000 ACZ)=C m | 
1010 NEXT Z | The game of CHECKERS has a long and honorable history. R. C. Bell | 
1020 Н5=0 | (in his book Discovering Old Board Games, Shire Publications, Ayles- | 
1050 C&-0 | bury, UK, 1980) says it was invented around 1100, “probably in the | 
1040 FOR 2151 TO 4 | south of France, using Backgammon tablemen оп a chequered chess- 
1050 READ C (Z) : board with the Alquerque method of capture" (pp. 35-36). The 
1060 NEXT 2 | Encyclopedia of Sports, Games and Pastimes (Fleetway House, 
1070 DATA -10,-1,1,10 ds. London, c. 1935) puts it much further back in time: *Forms of it were | 
1080 GOSUB 460 known іп ancient Egypt, Greece апа Rome, while Ше game was played | 
|| 1090 RETURN іп “һе mid-seventeenth century much ав it is today” (p. 237). | 
||: ( 
| | 150550408 -5Ь.7-8.9 
4 | ПЕРСА Бе D вуну пи СИСТ 
bs 3 Ju sp nen B Сесе H | 
IL. G X X X X X X X ж XG | 
ІІ” | Eu Xo Xx ok x ox Ж.Ж F | 
| | Sake ka 69 KOR KOE | 
n DXX xXxxx*xxxD x 
n C X X X X KEK REC n 
| 1 AHHHHHHHHHA €x | 
! | 12456789 menaces АИ АДАД dem D IONS m ooa. | 
| | ІТ | uiaiia I А ___ ЫЫ JU. Be dCi се | 
| 1" | М2500: О HUMAN: 0 Regardless of its аре, it is а very popular game around the world, | 
| | | ү with many European countries having regional variations оп (һе game | 
| | || : a of their own. Continental draughts (checkers is generally known as | 
| Т ІЛ draughts outside the US), for example, is played on a board of 100 
! \\ | g | squares with each player starting the game with 20 pieces. It was 
| ІШІ P developed in the early 1700s. 
| ШІ el This CHECKERS program plays the .game you are probably 
| 1 el most familiar with. It plays swiftly, and reasonably well, although its 
| | | n | lack of endgame strategy often leads to a dramatic collapse in the final 
| ||| a moments of a game. | 
| || | ae CHECKERS is played between you and the computer. Each of 
mU am you is attempting to take (that is jump over to capture, then remove 
| ||| | E from the board) the other player's pieces, or to confine the opponent's | 
ІШ | | | EI — pieces so no more moves are possible. | 
ІШІ | |- | Р 137 | 
| B 136 | | 











. The game is generally played оп а board with 64 squares, which 
are alternately light and dark. In this program, the board (as you can 
see from the sample game we have shortly) is a series of dots, with 
your pieces shown as H's (for human) and the machine's pieces as C's 
(for clever). 

When the game begins, you're at the bottom of the screen, play- 
ing up, and the computer is at the top playing down. As the program 
is currently set up, the computer always has the first move. If you 
want the first move then delete line 50. 

All moves must be made along diagonals. Individual pieces can 
only move forward, that is, toward the opponent's starting side. Pieces 
are converted into "kings" when they reach the back rank across the 


. board. Your kings are shown as K's, the computer's kings are dollar 


signs. Kings can move either forward or back. After capturing a piece, 
by jumping over it into the vacant square immediately behind the 
captured piece, you can move again if there is a further capture which 
can be made. 

Here is a series of board positions from one game I played 


against the program: 


COMPUTER: 0 
HUMAN: 0 


COMPUTER: 
HUMAN: 


. Сз» Ww 
e 

655 сус 

• Су» =j 

. е G 

о о 


ә Су» ыз 
° Q* ом 


це Ое Су» Ul 
Ф 
о № 


CJ. ~ 
e 


= e 
Е • 
. е LJ) 


е. Су =) 


= PO LO ғал O^ -—3 оо 
г + 
a + 


= PO шщ) Ал on ~] со 
* 
fe Ce un 
* зе CAN 
ше OQ. © о 


— me 
ге ue 
Uo ше 
= • 
лае 
сл • 
“Ime me 
Coe го 
е Qe 
T e 

"m e 

. 
ге 

те 














- PO LO валс-1 со 
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COMPUTER: 
HUMAN: 
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COHPUTER: 
HUMAN: 
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COMPUTER: 
HUMAN: 
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COMPUTER: 
HUMAN: 


бе е 
е 
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ue 
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11 
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This is the complete listing for CHECKERS: x | 


ШУ || | 

Т ||| 10 REM CHECKERS | 
|| 20 GOSUB 1010:REM INITIALISE | 

50 REM DELETE LINE 50 FOR HUMAN _ | | | 

40 REM TO HAVE FIRST MOVE 

















So БОТО 90 | 

40 REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

70 GOSUB 600: КЕМ PRINT BOARD 

зо GOSUEB 760:REM GET AND РКІМТ HUMAN MOVE 
90 GOSUE 600:REM PRINT BOARD 


100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
250 
240 


zu 


260 
270 
280 
290 
SOO 
510 
120 
A350 
540 
550 
360 
370 
НО 
590 
400 
410 
420 
430 
440) 
450 
дао 
470 
ЧО 


GOSUE 150: КЕМ MAKE MOVE 

GOTO 70 

БЕМ OOOO GK COCK 

FOR Х=1 TO 10:S(X)=O:NEXT X 

GCzO:(399 

А= 4-1 | 

ТЕ Q(A)<2C AND оса) кс К THEN 240 

B-O:IF 6629 THEN B=2 

EE 

M=A+N (В) 

IF M288 OR Mzii THEN 240 | | 

IF (Q(M)=H OR Q(M)=HE) AND @Q@(M+N(B))=E THEN 280 

IF Be? OR (Q(A)=CK AND В<4) THEN 180 

IF à»11 THEN 150 

FL=0: ТЕО (22) =0 OR @(24)=С ОКО (26) #С OR 0 (28) #С 
THEN GOSUBL270 

IF Кіші THEN 570 

GOTO 420 

О (M+N (В) ) =Ü (A) : Q (M) =E: Q CA) =E 

со=со+1 

GOSUB 600 

А=М+М (В) 

В=о 

BART Е i ^ а“ = nt) 

IE (A+2gN(B)<11 OR а+2жмсв) 288) AND в<4 THEN 55 

M=A+N (B) 

IF @(M)=C AND Б>5 THEN RETURN 

IF (Q(M)sHE) AND Q(M+N(B))=E THEN 330 

ТЕ Be? OR (Q(A)=CK AND В<4) THEN 550 

RETURN 

IF SCz10 THEN $C=SC+1 

G(SC) =100KA+B+20: RETURN 

IF SC=0 THEN 470 

XÜ=RND (SC) 

A=INT (В(ХС) 7100) 

M=A+N (S (ХС) -100ж-20) 

GOTO 570 

SC=SC+11A=RND (88) 

IF O(A)<2C AND Q(A)<>CK THEN 550 


"Қи 





490 
Oo 
210 
0) 
32350 
540 
350 
160 
370 


KAO 


190 
600 
610 
520 
530 
640 
630 
650 
670 
680 
590 
200 
710 
720 
730 
740 
750 
76 
770 
780 
790 
goo 
gio 


gz 

825 
ETO 
8.59 
340 
850 
geo 
а/о 
ado 


B= 
ЕсеБ4-1 


M=A+N (B) 


IP MOBH UM МЕТІ THEN 570 
IF Q(M)zE THEN 570 


IF Бег OR СОКА) = СК 


ЈЕ SC<300 THEN 470 
РКІМТ:РКІМТ"І CONCEDE THE GAME":END 
ОМ) = 0 (А) : 2 (А) =E 


RE TURN 


КЕМ ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


PRINT СНК (28); 
COMPUTER: "CO 
HUMAN: "HU 
3456728 
| TO 10 STEF -10 
PRINT F/10;" "; 
FOR G=1 TO @:FRINT CHR$(Q(G+F));" 


PRINT" 
PRINT" 
PRINT" 


FOR Е=80 


FRINT F/10: 


FRINT" 


RETURN 


IF HU=12 THEN PRINT"YOLU HAVE 


1 


NEXT F 


12545678 
IF CO=12 OR HU=12 THEN 710 


AND E<4 THEN 500 


WON!" 


IF CO=12 THEN РКІМТ"І HAVE WON!" 
GAME" : END 
КЕМЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


FRINT' THANKS FOR THE 


ГЕЙ v3 Py 
REM HUMAN MOVE 


CONCEDE THE 


GAME 


РКІМТӘ416, "ENTER YOUR MOVE": PRINT 


PRINT3448,""s::INFUT"FROM";4 
IF А=99 THEN GOTO 730 


"s NEXT G 


IF 0А) <> Н AND Q(ñ) <> HK THEN 780 
FPRINT3448," 


IF ОА) =H 
IF OCB) Sse THEN 810 


AND 


PRINT2416, " 
D (В) =0 (А) :а(А) =Е 
PRINT2448, " 
ВЕМЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
FOR T=11 ТО 17: ТЕ @(T)=C THEN О(Т) #СК 


МЕХТ Т 


"а  ТМРОТ "ТО"; В 


E<ñ ТНЕМ 810 


"КЕМ 15 SPACES 


":КЕМ 10 SPACES 


FOR T=82 TO 88:IF Q(T)=H THEN Q(T) «НЕ 


NEXT: ST 








И OCON 

















1060 
1070 
1080 
1090 
1100 
1110 
1120 


DIM 0(99),М(4),5(10) 
Hz:72: НЕе=75 

C=57:CK=36 

E32: OF =-99 

FOR М=1 TO 99:Q(M)=OF:NEXT М 
FOR M=1 ТО 64 

READ D,G 


COMPUTER: 
HUMAN: 


~ me 
со • 


= РОЈ гал OY 53 со 


-— 45% е me 


е 
IT 
. 
Qe 


me 


= 

= 
іл ces г. 
=~] го 


ще (e 
«x "me 


ү! | 1150 Q(D)=G:NEXT M x1 OH. 
ІШ 1140 DATA 81,46,82,67,85,40,84,67,85,46,86,67,87,46 $:] | = 3435 бот B 
| ТІ 1150 DATA 88,67,71.67,72,46,73,67,74,46,75,67, 76, 46 d 12355678 

ПІ 1160 DATA 77,67,78,46,61,46,62,67,63,46,64,67 A ЗЫ. . K 

! 1170 DATA 68,46, 66,67, 67, 46, 58, 67, S1, 32, 52. 46 Д я ° ° ° 

m 1180 DATA 53,32,54, 46,55, 32,56, 46,57, 32, 58, 46 “| ОРТ ча аа COMPUTER: 8 

m 1190 DATA 41,46,42,32,43,46,44, 32, 45, 46, 46, 32 71 : HUMAN: 9 

ШІ 1200 DATA 47,46,48,32,21,72,32, 46, 33,72, 34, 46, 35, 72 tJ 

|| 1210 DATA 56,46,57,72,58,46,21,46,22,.72,22,46,24,72 | $. «H.H, 

1 1220 DATA 25,46,25,72,27,46,20, 72.11,72,12,46, 13, 72 21 М тысты. > i. 2 3 456 79 

1 1250 DATA 14,46,15,72,16,46,17,72,18, 46 T] к Ж ит 25% 8 В 

ІШ 1240 FOR M=1 TO 4:READ X: N (M) eX: NEXT М 21 1234567 8 7 oi ЛЕ T 

n 1250 БАТА -11,-9,11,9 #4 6 „Нике 6 

ІТ 1260 CO-O:HU-Ü: RETURN d 5 ç : š stb 
|| 1270 IF Q(22)=C AND Q(11)=E THEN A=22:M=11:FL=1:RETURN | 4 А O 4 
| 1280 IF @(22)=C AND 0(13) Е THEN A=22:M=13:FL=1:RETURN 3 0$.$. 3 
| 1290 IF Q(24)-C AND 0(15) Е THEN A=24:M=13:FL=1:RETURN 2 ЖҮЛ. : 
| x 


1500 


142 


IF 0024) + С AND (15) =Е THEN А=24:М=15: 2 1: RETURN 


- № (O ЈЕЛ O^ -3 со 
• 
е 


- № 00) ENDAN со 


"i 
| ||| 
T. | 
D | 890 КЕМЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ I 
||| 900 IF АВЗ(А-В)<12 THEN RETURN 1310 IF Q(26)=C AND Q(15)9E THEN Дера: Мә 15:FL=1:RETURN 
Wal). | | 1320 IF 0(26) «С AND Q(17)=E 2 
ІІ | 210 TY=RND (10) m | x Е 1 4 us THEN A-26:M-z17:FLz1:RETURN 
||| 920 ТЕ Тул THEN FRINT3416,"GO0O0D MOVE":GOSUB 1540 P zu REIURM 27 | 
Wall. 930 IF ТҮ>7 THEN FRINT3416,"GOT ME'":GOSUB 1340 La 1540 FOR б=1 ТО 1000: МЕХТ O: RETURN 
ІШІ! 940 Ну=Ни+1: 0 ( (A+B) /2)=E: GÜSUB 600 a 
ІТІШ 950 FOR T=82 TO 88:IF Q(T)=H THEN @(T)=H THEN Q(T)-HK A COMPUTER: 2 
A | 960 NEXT T T HUMAN: 2 
||| 970 РКІМТ:ІМРИТ"САМ YOU JUMP AGAIN(Y/N)";A$ a 
ДЦ 975 PRINT3416," à » 
І 980 IF A$z»"Y" THEN RETURN т 12355678 
! 990 A-B:GOTO 800 21 ЖЕ T 
D 1000 REPOooooooooooooooooocooceex Ж. Тек vL mI 
| 1010 КЕМ INITIALISE | 874 Ko бео ЧЕ 6 COMPUTER: 4 
^" 1020 CLS:PRINT "PRESS THE SPACE KEY" ; 5 "E E M Т ЖҰҚА HUMAN: 3 
b 1030 IF INKEY$<> " " THEN 1030 B. a . . с НЕЕЦ 
Н 1040 CLS Tom A C. 
1050 PRINT"PLEASE STAND BY" E m И СОНОНУ в $4 23 456 та 
1 $ * H + 1 ° ° ° C . e 
1 4 с C 


= № ш) вал Сл 53 со 








C uu не, 





nu | 
| | Ж АУУАКІ is опе of a series of pebble-in-pits games generally known 
v. under the name of “Mancala.” The game is played from Africa to the 
Philippines, and will now move into your home, via a very clever 

| computer opponent. ||| 

|| | 


ли її 
тва вото ит Ж 





мат 
ap ——— је паљена “+ 


“= 





Ав you сап see from the sample рате, which starts below, the || 
A game begins with six “pits” (the letters A to F and L to G) Ғасіпр each | 
| player. Your pits аге those from L to G. Each pit contains three seeds | 


ыы UU PELLI ES — 527 w -- - 


тікі. ace 


at the beginning of the game. Choosing апу pit оп your side, you pick | 
M up all the seeds from it, and then proceed to move in a clockwise || 
| direction, sowing а seed іп each pit ав you ро past it. You do not sow Y || 
E. any seeds in the pits at either end of the board, the ones which start || 
ii | off ав zeroes. ! 
x If your final seed lands opposite an empty pit, then all the seeds | 
4 іп the pit you've landed іп become yours, апа аге transferred to your | | 
i "home." Your home is the zero to the left of the board, the computer's || 
home is the zero to the right. | | | 
Тһе game continues until either side is completely empty, so the | | 
ЕН player cannot move. At this point, the player with the largest number ||| 
EI. of seeds in his or her pit is the winner. The computer plays well in this | | |. 
Ew game, but with practice you'll learn to defeat it. Don't expect too || 
ET. many victories in the early games. · . | He 
Ae | 
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| | | | | i Here’s a game I played against my own computer: | 78 2 
| ГІШ са іа 1-9 | 
ТІГІ - 19 
ТІ i 6 ао о о 6 | | 
ШІ A В С DEF L И АДЕ | 
| ||| x ee a i r 
| ІІ! | О 9 

||| ағат 8 um в 5 ан. ü: D Е “F 

| ІШ EE э 

ІТІП | 0$" 0:709 

ГІШ L Kk J IH 6 


4 | THAT'S THE END OF THE GAME 
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This is the listing for AWARI: 





А ВЕР | nm" 
CP CMM ЈЕ 10 GÜSUB 930:REM INITIALISE 
n 5 " 14 30 60508 770:REM PRINT BOARD 
x a! He reed ать 1 40 FOR P=1 TO 500:NEXT P:REM DELAY 
ИКРЕ Wie po 50 GOSUB 160:REM COMPUTER MOVE 


L4 n 
e 
k A 


T 
Ж 


60 GOSUB 770:REM PRINT BOARD 
70 GOSUB 620: НЕМ HUMAN MOVE 
80 CH-0:Hi-Q 
б 90 FOR C=1 TO 12 
| | AI 100 IF СС THEN CH=CW+A(C) 
| | H 110 IF 028 THEN HW=HW+A(C) 
| 120 NEIT C 


||| - | 130 IF CW=0 OR HW=0 THEN 510 ү 
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140 GOTO 30 

150 REN и 

150 REM COMPUTER MOVE 

170 GH=0:C=0 

180 C=C + 1 

190 IF A(C)=0 THEN 180 

200 1= + МС) 

210 IF 1212 THEN 2-2 - 12 

215 FLAG=0 

220 IF 156 THEN IF А(1-6) 20 AND A(Z)=0 THEN FLAG=I 

225 IF FLAG=1 THEN IF A(Z-6))6M THEN 6Ħ=C 

227 FLAG=0 

230 IF 247 THEN IF А(146)(20 AND A(Z)=0 THEN FLAG=1 Pq 
235 IF FLAG=1 THEN IF A(Z+6))6M THEN GN=C | = 

240 IF ССЬ THEN 180 | 
250 IF 6M-0 THEN 370 | P | 
250 C=6M | 2 | 
270 PRINT à 34,"I'LL MOVE FROM ";CHR$(644C)," " 

272 SOUND RND(0)$20+1,3:SQUND ЕКО (0) 220+1, 1: SOUND 5,2 
275 PRINT 9 34," 2 E 

280 FOR IC TO C*A(CI 

290 IF 2512 THEN А{1-12)=А(1-12)+1 

300 IF 1515 THEN A(Z)=A(Z) +1 

310 NEXT 1 

320 Z=C+A(C)-1:IF 1212 THEN 222-12 

330 AIC) =0 

340 B(2)=B(2) +A (13-2) 2A (13-2) =0 

350 RETURN 

30 кеміп Ps 
370 REM NON-SCORE MOVE 14 
380 W=0 "a 
390 кей + 1 

400 CeINT(RND(0) $4) 1 i 

410 IF A(C) <> 0 THEN 440 i4 
420 IF W(20 THEN 390 їй | 
430 6070 510 | | | id 
440 PRINT @ 34,"I'LL MOVE FROM ";CHR$(64+C) W 
442 SOUND 6,1:SOUND 3,1:S0UND RND(0)420+1,3:50UND RND(O)420+1, 1 р 


С: Е ` ) 4. a 
lt il s pe ee, TE E. = 


445 PRINT 9 34," . 34 
450 FOR 15 C TO C*A(C) e 
460 IF 2413 THEN А(1)=А(1)+1 1 
470 IF 1712 THEN A{Z-6)=A(Z~6) +1 ET 
480 NEXT 1 т 


490 4(0)=0: 6070. 350 | | M 





J00 REN пп 

310 REM END OF GAME 

220 BUSUB 770 

250 PRINT 9 54, "ТНАТ"5 THE END OF THE GAME" 

540 SOUND RND(0)120,1:50UND RND(0)120,2 

990 IF B(1)2B(2) THEN PRINT 9 480," YOU'RE THE WINNER!" 
360 IF B(1)6B(2) THEN PRINT 9 480,"I'M THE WINNER!" 

370 IF В(1)=В(2) THEN PRINT 9 480,"IT LOOKS LIKE A DRAW!" 
380 PRINT 9 416,"MY SCORE?';B(2);" ":8(1); " «YOUR. SCORE" 
500 GOTO 600 

610 КЕНШІ 

620 REM HUMAN MOVE 

630 PRINT è 34," WHICH PIT TO START WITH?":PRINT 9 66," " 
655 INPUT AS:PRINT 9 34," y" тады 
640 PRINT q 95," — ':B-A5C(A$)-54 

550 IF B(7 ОК 8212 THEN 530 

660 С058: 7844 (В) : IF 1512 THEN 271-12 

870 M=A(1) 

680 FOR 1-8 TO B*A(B) 

690 IF 1212 THEN А(1-12)=А(1-12)+1 

700 IF 2613 THEN A(Z)=A(Z)+1 

710 NEXT Z 

720 1=В+А(В)-1:1Р 1212 THEN 221-12 

730 IF М=0 THEN B(1)=B(1)+ñ(13-1):A013-1)=0 

740 A(CO)=0 

150 RETURN 

760 КЕН 

770 REM PRINT BOARD 

789 PRINT 9 128," А B C D E F'PRINT" "; 

800 FOR C=1 TO 6 





. 810 PRINT А(С); 


820 NEXT C 

830 PRINT:PRINT В(1);" "B(2):PRINT У; 
840 FOR C=12 TO 7 STEP -1 

850 PRINT A(C); 

880 NEXT C 

870 PRINGPRIT" L K J I H 6" 

880 COPY:REM DELETE THIS LINE IF YOU DON'T WANT PRINTER COPY 
890 RETURN. 

900 PRINT 3 34,"I MOVE FROM ";CHRS(5446N) 

910 СЕБИ 

920 ВЕ ИННИЦИ 

930 REM INITIALISE 
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940 CLS 


960 DIM A(12),B112) 


970 FOR (-1 ТО 12 


980 (61-5 


990 NEXT C 


1000 RETURN 
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_| KNIGHTSBRIDGE 


KNIGHTSBRIDGE is one of the few games which I can claim I in- 
vented completely (although, of course, the idea of naming it after a 
London suburb came from the two inventors of KENSINGTON). I 
make habit of reading games books to get ideas, and often when I 
walked іп the woods around London, Га take a book with me to read 
when I felt like a rest. I was walking one Sunday afternoon near 
Ruislip Lido thinking about a passage Га just read in a book which 
said that chess evolved from an Indian game in which the throw of a 
die dictated which piece was to move. 

From that starting point, I thought of a game in which all the 
pieces were chess knights (hence the name of the game) and a die was 
used to say which piece had to move. KNIGHTSBRIDGE evolved 
from that idea. 


It is played on a seven by seven board. The computer tells you 


which piece you must move (each piece is indicated by entering a 
two-digit number, the first being the coordinates of the square you're 
moving to down the side of the board, the second digit being the coor- 
dinates of the square across the top), and then leaves you to decide 
where you will move to. All pieces move like chess knights, and all 
moves are checked to see if they are legal before you are allowed to 
move. | 

You capture by landing on top of an enemy piece. The first 
player to capture five of the enemy's seven pieces is the winner. 
There are no multiple jumps. | 

You'll find the computer plays swiftly апа well. 
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MY SCORE IS 0 


YOUR SCORE IS 0 MY SCORE IS 0 
YOUR SCORE IS 0 


1234567 
------------- 1234551 
TCCCCCCCE T Ma mee 
EVE X xc" ТЕС 7 
dM E E NE J ЖТТ. 
Ды» Жанын t. Ñ КЕТТІ 
3m SEE р) EE YXTZTL. 
I PEE. ЖЕТІ m 
IHHHHHHH 1 ЖЕГЕТІН 
те IHHHH.HH2 | 
12734567 € Á€—À 
I HAVE ТО MOVE THE PIECE ON 77 1234587 
YOU MUST MOVE THE PIECE ON 15 
? 34 


This is the listing for KNIGHTSBRIDGE: 


10 REM KNIGHTSBRIDGE 
20 60508 760 :REM INITIALISE 
30 GOSUB 490 :REM PRINT BOARD 
40 IF HU-5 OR (0-5 THEN 680 :REM END OF GANE 
50 60508 300 :REM COMPUTER MOVE 
50 60508 490 :REM PRINT BOARD 
70 IF HU=5 OR CO=5 THEN 680 :REM END OF GAME 
80 GOSUB 110 :REM PLAYER MOVES 
90 6070 30 
100 REN ttitttittiizt HIE ES 
110 REM PLAYER MOVES 
120 0-0 
130 HzRND(GS) +11 
140 0-01 
150 IF 0-500 THEN 580 
150 IF НМ) 272 THEN 150 
170 PRINT"YOU MUST MOVE THE PIECE ОМРН 
180 INPUT N 
190 IF N=99 THEN 0=500:6070 680 
200 REM ### CHECK IF MOVE LEGAL HH 
210 Р-0 
220 (1-1 
230 IF N+Z(CT)=N THEN Р=1 





240 IF СТ<8 THEN CTzCT*1:60T0 230 

250 IF Р-0 THEN PRINT"ILLEGAL MOVE":60TO 180 | 
260 IF H(N)=67 THEN HU-HU*1:PRINT"WELL PLAYED! "sFORR=1T0500: NEXT 
210 НЕМ) 246: НА) 272 

280 RETURN 

290 ЕКПІН 

300 REM COMPUTER MOVES 

40 0150 

320 8120141 

350 K=RND(66)+11 

340 IF 012500 THEN 680 

350 IF H(K)<>67 THEN 320 

360 PRINT"I HAVE TO MOVE THE PIECE ON"K 

569 FOR Р=1 ТО 3000:NEXT F 

570 КЕ! 

580 IF KeZ(4) 11 OR Ke20(80)277 THEN 400 

585 IF H(K+Z(W))=72 THEN PRINT “GOTCHA!!":FOR F=1 TO 1500:NEXT F 
590 IF H(K+Z(W))=72 THEN С0=С0+1: 60Т0 450 

400 IF НСВ THEN W-W*1:B0TO 380 

110 W=] 

420 IF (K+Z(NI<1L OR K4204)277) AND ИВ THEN W=W+1:50T0 420 

430 IF H(K200)) O46 АКО ИВ THEN WzW*1:G0T0 450 

440 IF Wz8 AND H(K+Z(W))<> 46 THEN 012500:60T0 680 

450 X=K:Y=K+I(W) : 

450 HO) 245:H (Y) 267 

470 RETURN 


480 REM 111111100100 E EE EL E 


490 REM PRINT BOARD 
500 CLS 

510 PRINT ТАВ(В); "МҮ SCORE IS'CU 

520 PRINT TAB(B); YOUR SCORE IS'HU ` 
530 PRINT 

540 PRINT ТАВ(9);'1 2345 6 7" 

550 PRINT TAB(B) ; *-------------' 

560 FOR M=70 TO 10 STEP -10 

570 PRINT TAB(S);N/10; 

580 FOR КЕ! TO 7 

590 PRINT CHR$(H(M+N));' "; 

500 NEXT N 

510 PRINT M/10 

620 NEXT И 

630 PRINT TABI8) ; *-------------" 

640 PRINT TAB(B;1 234 5 6 7" 

580 RETURN 
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ЕЗ 

580 КЕМ END OF BAME 

690 GOSUB 490 

700 IF HU=5 THEN PRINT"YOU HAVE BEATEN МЕ, YOU,HUMAN" 

710 IF CO=5 THEN 60508 920 

720 IF 0:500 THEN PRINT"I ACCEPT YOUR WISH TO CONCEDE" 

730 IF 01-500 THEN PRINT"I CONCEDE TO А MASTER" 

740 END 

750 REM ИИН 

750 REM INITIALISE 

770 CLS:PRINT*PLEASE STAND BY... . HUNAN" 

780 DIM H(100),2(8) 

790 Х=0:01=0: 050 

800 HU=0:CO=0:REM SCORES 

810 FOR А=1 TO 99 

820 IF A)77 OR 4-70 OR A=60 OR Az58 OR А=59 OR А=50 THEN NEXT A 
820 IF А=59 OR A240 OR A=48 OR A=49 OR А=30 OR A38 THEN NEXT А 
840 IF 4-39 ORA=20 ORA=28 ORA=29 ORA=18 ORA=19 ORACII THEN NEXT 
850 НСА) =46 

BAO IF A>70 AND А78 THEN Н(А) =67 


‚ 870 IF АУТО AND A<18 THEN H(A)=72 


875 IF 499 THEN 890 

880 NEXT A 

890 FOR A=1 TO B:READ Z(A)ENEXT A 

900 DATA -B,-21,-12,-19, 19, 12, 21,8 

910 RETURN 

920 PRINT'THIS VICTORY IS THE FIRST':PRINT"STEP IN OUR PLAN ТО"; 
930 PRINT" TAKE":PRINT"OVER THE ENTIRE EARTH! *:RETURN 











The final program in the board-games section of this book is RE- 


VERSI, which is often called OTHEL | 
А fte | IHELLO.* Invented in the 1 
eighteen hundreds, it is played on an ordinary eight by eight Lm 


ІШ ШЕГІН 
КЕР үү 
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MAS oum 
г. к=] 1 
| M. 
га и b Ви Кр ШТ [| LR. 


Ия пори ЕТЕП БІШЕШІШЕЕІНЕЛІГ ІЙ | Ла 












T | MEL H ЕШТЕН се | 
рша » is pares ы а board, you use pieces which һауе different | 
| s оп each side. The game begins with four рі | 
ин ns рі our pieces placed оп the | 

From this point оп, you move b i | | 
' jj | y placing one of your pieces next 
са ЫЕ. рїесе d стори with another of your pieces further оп | 
When appens, all the computer pi # " 
ae p pieces “reverse” to become your | 
Here's how it works. Suppose a line of pieces looked like this: | 


OXXXX 


cim you decided to put your piece (the 0) at the end of the line like Al 


оххххо | "| 


The computer pieces would reverse, so the | au | 
| | , Эб e line | | 
your move: | looked like this after | 


000000 


* Othello is a registered trademark of Gabriel ра | | | 
Mine of Information, UK. пе! Industries, Inc., USA and 
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570 REM * il every square on the board is filled, or 
680 RF you can see, fortunes can change swiftly 
59” ing off your position (such as оп the diag- 
i single move. 
any time, you signal this to the computer 


yoyable game to play. Writing in Creative 
е 1981, p. 188), David Геуу tenders Ше 
Ше best games ever invented, simply Бе- 
arned in no more than a minute, yet the 
ister.” He goes on to observe that although 
than chess, it is more complex than check- 






| n game is called Othello, and was “invented” 

by Goro Hasegawa in Tokyo in 1971, the only difference between it 
and. Reversi is the fact that the first four positions must be as in the 
sample game you'll see following this description. 

Back in the 1880s, when the game was first invented in London, 
two gentlemen—Lewis Waterman and John W. Mollett—both 
claimed to be the originators of the game. Stephen Kimmel (writing in 

. Creative Computing magazine, July 1981, p. 94) says he believes Wa- 
terman has the strongest case for being the inventor of Reversi, be- 
cause he had the details published first in a series of articles in the 
magazine, The Queen (which concentrated on “affairs of interest to 
ladies”). 

Regardless of who should get the credit, Hasegawa, Waterman, 
or Mollett, it is a great game, and this program (based on one written 
by Graham Charlton) puts up a spirited defense. This sample run 
shows the early stages of one game: 


lo А НЕ А gs B L 2 om 9875 B 
1 e ИК ШЕ AP 1 1 "aL 
C o. a^ eH TREE ER АСАР АТТАС z uc пак 8 ш anaxN uo 
До за ОА РАНИ нар c 4 Fat Pis сыры iow. an m 
Si ad MGA en Тш. ы =i S ям” А Жота 
6 o Си TEC ČI што Жї onse а Да 
ово а БИРИ и 7 7 ea t'a "a i Да: „й 
E^ PE UE e cd Во uw =. š oe га. N 


ӘШПІРІРРЕТЕ o2 COMPUTER 4 HUMAN 
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is L2 = 456. 7.8 1 2 
T 1 k жаа = d dx а ] 1 "= N." 
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12345478 12 
COMPUTER 5 HUMAN 3 COMPUTER 
| 
И: 1 z Z 4 5 Е lox 
T 1 Q.m iu x LM а x 1 је я 5 
“Йй = за аа ME Жет 
EA 3 € X cw de IC DUM Ж 5 и 
* дога Gu Du du we id 4 .0 
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СОМЕЦТЕВ £ HUMAN 7 СОМРШТЕК 


And here's the listing of REVERSI: 


к 10 6010 740 
7 | 50 PRINT 9 384, "МУ MOVE" 
E 240 5=1:Т=Х:Н=0 


50 FOR A=2 ТО 9:FOR B=2 TO 9 
60 ТЕ В(А,В) 46 THEN 210 

70 0-0 

80 FOR C=-1 TO 1:Ғ0Я D=-1 Т0 | 
90 K=0:F=A:G=B 

100 IF А(Е+С, 6401 OS THEN 130 
110 KsK*1:FzF4C:6264D 

120 БОТО 100 

130 IF МЕН,68)) OT THEN 150 
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140 Q=0+K Ж 
150 NEXT D:NEX 
150 IF A=2 OR А=9 OR В-2 OR B=9 ta жұ. 
F A=3 OR 4:8 OR В-3 OR В-8 THEN 05 
Ps + (A=2 OR A=9) AND (853 OR 8-8) THEN 0-0/2:6070 190 
185 IF (A=3 OR А=8) AND (852 ОК 829) THEN 0-0/2 
190 IF OCH OR (RND(0)4.3 AND Q=H) THEN 210 
200 H=Q:M=A:N=B 
210 NEXT B:NEXT À 
220 IF Hz0 AND R=0 THEN 890 
230 IF H=0 THEN 250 
240 60508 580 
250 60508 370 
255 PRINT 3 384," . 
260 PRINT 9 354, "ENTER YOUR MOVE" 
270 PRINT: INPUT R 
275 PRINT 3 354, ' 
280 5-):1<1 
200 IF R=0 THEN 350 
300 IF КА! OR R88 THEN 260 
310 R=R+1l 
320 H=INT(R/10) 
330 N-R-101H 
340 60508 580 
350 605UB 370 
340 GOTO 30 
370 REN PRINT BOARD 
380 Cz0:Hz0 
390 SOUND RND(0)%30,1 
395 SOUND RND(0)130,1 
400 PRINT 3 30," 1234557" 
450 FOR B=2 TO 9:PRINT B-1;" "; 
440 FOR D=2 TO 9 
470 PRINT CHRS(A(B,D));" "; 
480 IF A(B,D)=X THEN С=С+1 
490 IF A(B,D)=Z THEN H=H+1 
500 NEXT D 
510 PRINT B-1 
520 NEXT В 
530 PRINT" 12345576 
540 PRINT | 
550 PRINT 3 480,"COMPUTER ";C;" НОМАМ ";H 
570 RETURN 











380 FOR C=-1 TO 1:FOR D=-1 TO 1 
990 FzM:BzN 


- 600 IF A(F«C,64D) OS THEN 630 


810 F=F+C: 6=6+D 

620 GOTO 600 

630 IF А(Е+С, 6+0) <> T THEN 670 

640 А(Е,6)<Т 

650 IF M=F AND К<6 THEN 670 

660 F=F-C:G=6-D:60T0 640 

670 NEXT D:NEXT C 

680 RETURN 

690 60508 570 

700 IF СН THEN PRINT "I'M THE CHAMP!" 
710 IF HOC THEN PRINT "YOU'RE THE CHAMP" 
720 IF H=C THEN PRINT "IT'S А DRAW" 
730 END 

740 (15 

750 X-88:1-48 

760 DIM А(10, 10) 

770 FOR 8-1 TO 10:FOR C=1 TO 10 

780 IF ВОН AND C<>1 AND 84210 AND (5210 THEN A(B,C) 246 
790 NEXT C:NEXT B 

800 А(5,9)<Х:А(6, 6) <Х 

810 Alb, S)=2:A(5, 6)=2 

820 P=0 

850 GOSUB 570 

840 6070 50 
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Artificial intelligence is а goal which has not yet been achieved. Сег- 


ІШІГЕ | | | Сашу, programs which enable computers to exhibit behavior which 
||| al could conceivably be classed as intelligent have been written, but the 
|| | “intelligence” has been limited and effective only within a severely 

| | restricted domain. That is, а computer сап appear to be brainy, but 


: only if you limit the environment within which it has to demonstrate 
1a those brains. 

Despite the claims made by some people (such as Carl Sagan, “In 
Defense of Robots,” Broca’s Brain) that human beings are, essen- 
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tially, just well-made computers, we sense there is а wide gulf be- 
ІІ tween our own perception of our selfhood, апа the total поп- 
NM awareness that computers can have (at least at present) of their own 
| existence. And it seems to me that this self-perception lies at the heart 
ШІМ of at least опе aspect of intelligence. 

||| | Computers сап function extremely “intelligently” іп restricted 
ІЛ areas. Look at the five-inch-square, hand-held chess тасһіпев. Within 
the limited domain of a chess game, a solid appearance of intelligence 
can be created. 

| A common stumbling block in the work of early researchers into 
| the field of artificial intelligence was that writing a program which 
| emulated some aspect of human reasoning (such as a very impressive 
| checkers program by Samuels) did not necessarily lead researchers 
any closer to either producing behavior which could be classed as in- 
telligent, nor toward a theoretical understanding of the processes of 
human reasoning and deduction. "Progress in producing intelligent 
behavior is not necessarily progress towards producing thought" (Nor- 
man Whaland, “When Is a Program Intelligent?," Creative Comput- 
iné, February 1981, pp. 44-49). 

There is another way of approaching the problem, which I call 
the “if it quacks like а duck, it’s a duck" approach. In the book The 
Turing Criterion: Machine Intelligent Programs for the 1 6K 2Х81 
(Charlton et al., Interface Publications, London, 1982), which I edi- 
ted, I answer the question “What is the Turing Criterion?” in the 


following words: 


In 1950, the English mathematician and logician A. M. Turing 
proposed what has become known as the “Turing Criterion” for 


machine intelligence. 


ІШІ! Не said that if you were dealing with something at the end of a 

| | wire that could be a machine, or could be human, and you could 
| not tell—from the responses coming to you over the wire— 
whether that with which you were dealing was human or 
machine, the "thing" at the other end was, by definition, 
intelligent. 


On this basis, it would be possible to class many, many computer 
ГІТ programs ав intelligent. Certainly those within this section of the book 
ШІН could almost pass the test, especially if you were prepared to accept 
the possibility that some pretty stupid humans were dealing with you. 
Time now to explore the worlds of Artificial Intelligence. 














_| ELECTRONIC 
BRAIN 


ELECTRONIC BRAIN is an attempt to write a program which 
would work toward the answer to a problem, in an apparently intel- 
ligent manner. The computer is attempting to solve a problem of the 
type where you think of a numerical code, and the computer tries to 
guess it. The feedback you give its answers are as “whites” and 
“blacks,” where a white is given for a digit which is correct, but is in 
the wrong position in the code, and a black is given whenever there is 
a correct digit within the code. 

The problem is not totally straightforward, as the computer does 
not know, for certain, which digit produced which result. I wrote two 
versions of this program, one to solve three-digit codes, and a modi- 
fication of that program to solve four-digit ones. It works in a simple 


i 
PELA y der m ЖАР 
ІМ ХЕ луде Ои 
WAWQI (Чүкү пати = 

| ( SN Ке. 

SANNI ШІ 


| | Т + [| 
И WAWA МИ 
nimm ШШШ С 


Vl Li 
ACCU V RU 


ҮРҮҮ ШП x 
| ЈИ Fi | мее 
ШЛУ | 

SN 








163 
































i | " 
|| , || | 
| UI n Е Е š * І | ed IT сака AT", = 
| x || manner (although implementing the relatively simple idea behind the GUESS NUMBER 3 
c E program was not particularly easy). Every time A САД п | SUESS IS 5 
ТЕ code which is awarded а black, every digit within that code 15 | MY GUESS IS 7 8 9 | 
— Mil ||| | iehted so that it appears more often in future guesses. The more | 
m Т Wen | E igher the weighting each code 
Ni. blacks in that particular code, the higher the weighting | | | 
E iii | gets СА much smaller weighting is awarded if the code gets one or HOW MANY BLACKS? 1 
| BE |. ene whites. Any code getting neither a black nor a white leads to all 
Ni || ІІ the digits within that guess being totally removed from future consid- | And this is the listing that produced it: 
І 7 | 
СІП eration. a к i hich the four- 
WI | id. the three-digit version is the basis upon which the пактта + Я = 
Wa di раіна was Written, Enter the three-digit one first, and then А, i сые M шуы ade ae DIGITS 
||| | save it in that form, before making the needed conversion to make Ы .. Е. = и ae MU d “waq ipu 
ІШ ligi | ћегеа hree-digit version works | 50 RE КЕ е 
ІШ work as a four-digit program. Whereas the Uree Wr и. ргортат ⁄ 40 IF GUESS<3 THEN FOR Z=1 TÜ 3:B(Z)=Z+3kGUESS: | 
MN reasonably well, and reasonably quickly, the four-digit program | NEXT Z:GOTO 60 | 
hi grinds almost to a halt toward the end, as it tries to generate сос > E: zo GOSUE 280 | 
ү. which (а) reflect (һе weighting that previous answers һауе Pines | 60 CLS | 
| and (b) аге not codes which һауе been previously suggested Іп (ла 70 GUESS=GUESS+1 | 
| particular run. .. | EO PRINT:FRINT | 
idi Here's the program solving a three-digit code: | 90 PRINT "GUESS NUMBER" GUESS | 
mi 4 100 PRINT | 
n ||. 110 PRINT "МҮ GUESS IS"B(1);B(2);B(3) | 
ҮШІ GUESS NUMBER 1 cal 120 PRINT: PRINT | 
Ш | 1 г 125 ES-sINKEYS | 
ІШ MY GUESS IS 1 4 > a 150 PRINT "HOW MANY BLACKS? "; 
d | 135 ASSINKEYS$:1IF Ags >"о"амраф >" 1"амраћ< >" 2" | 
ШІ 1 í осыған” еп | "rum | 
(1 HOW MANY BLACKS? 1 | 157 PRINT A$:B-VAL (A$) РАЕН 7. 
|| Agi | 140 ТЕ Вей THEN 570 
n [^ 150 IF B=2 THEN 190 
ЛІ J ма 56 | 160 PRINT: РКТМТ 
E ЧОМ MANY WHITES? О | 
ІІ! | даи: E 165 HésINKEYS 
| ЖИ 170 PRINT "AND HOW MANY WHITES? "; 
a | 175 A$=INKEY$:IF А%<>"О"АМОА%< p" 1"ANDASE >"2" 
MU 24 ANDAS "5" THEN 175 
l GUESS NUMBER 2 E] 177 PRINT Adis W=VAL CAS) | mos 
ІШІП m 180 IF W-BzX THEN Gz3:CODsBOD:CODSBODICCO-sBCO 
1 MY GUESS IS 4 5 6 | 190 IF В+ы=0 THEN C(B(1))=O:C(B(2))=0:C(B(3))=O:GOTO 30 
ТӨТЕ A 200 IF B>AID THEN FOR Z=1 TO SsE(Z)=B(Z)sNEXT Z:ñID=E 
|| ШИ 210 FOR 2-і TO 9 
n HOW MANY BLACKS? 1 a 220 FOR р=1 TO 3 ORON 
ME | | 230 IF B(D=C(Z) THEN СС) Сд) + В+) X100-WX10 | 
||| | 240 NEXT D | 
ТІ AND HOW MANY WHITES? O EE 250 NEXT Z | 
| ||| E | | 165 | 





элй GOTO 20 

270 REM PICK THREE NUMBERS 

ово FOR 7-1 TO 3 

290 Dist (RND (Q) ) 

xoo IF DisO THEN 290 

то р2=С КМО (0) ) 

320 ТЕ D2-0 THEN 310 ` | 

N 5 DET (D1/10) SINT (D2/10) THEN B(Z)=D1 

Зло IF INT(D1/10)«INT(D2/10) THEN B(Z)7D2 

тес ТЕ INT(D1/10)=INT(D2/10) THEN B(Z)=D1 Ре 

60 IF В(7)>100 THEN B(Z) =8 (D -100XINT (B CZ) / 1€ ый 
=70) IF B(Z)>10 THEN BOLD SBOD-10KINT(O()/10):G0TO 580 
5 - қ 2 | == 4 к 
No Ма OR ECL) SECO op асау eR cn THEN 290 
100 IF AID»O THEN CO-O:FOR Z=1 ТІ DE) e 
410 IF AID20 THEN NEXT Z:1F CO<AID THEN 280 

доо M=LOOKB (1) +10%B (2) +B (3) 

430 k (GUESS) =M 

440 IF GUESS«3 THEN 500 

450 С0=1 

460 COsCO*1 

470 IF КОСО) =М THEN 290 

480 IF CO«GUESS-1 THEN 460 

490 RETURN 

500 REM INITIALISE 

510 GUESSsO:(-9: AID=0 

520 DIM B(3),C(9),E(3),K(100) 

сто FOR 7-і TO 9 

540 С(7) #7 

sso NEXT Z 

5460 RETURN 

сто PRINT:PFRINT | 

Дан БЕЛ. "T GUESSED YOUR CODE DF"B(1);B(2):B(3) 
оо PRINT ТАВ (9) "IN JUST"GUESS"GUESSES" 

200 FOR 72-1 ТО 5000: МЕХТ Z:CLS 


This is Ше listing to solve four-digit codes, which is based on the 
three-digit one. Note the addition of * — 1" in line 420 of this program, 
as well as the other changes: 


19 REM ELECTRONIC ЕКАТМ-4 DIGITS 
20 GOSUB 510: КЕМ INITIALISE 
30 REM МАКЕ А GUESS 
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40 IF GUESS-O THEN FOR 2-1 TO 4:8(Z)=Z:NEXT Z:GOTO 70 


30 IF GUESS=1 THEN FOR 2=1 ТО 4:8(2)=2+4: МЕХТ Z:GOTO 70 


ао GOSUR 280 
70 CLS 
do GUESS=GUESS+1 
J0 ЕНІМТЕРЕТІМТ 
100 PRINT "GUESS NUMBER"GUESS 
L10 PRINT 
120 PRINT "МҮ GUESS IS"HI)IBOO2)8BCS) Б (4) 
150 PRINT: PRINT 
140 INFUT "HOW MANY BLACK S"358 
150 IF B=4 THEN 580 
160 IF Е=5 THEN 190 
170 РКІМТІРКІМТ 
180 ТМРИТ "AND HOW MANY WHITES"; W 
190 IF WtB=4 THEN @=4:C (1)=B(1)sC (2)=B(2):; 
C(3S)=B(3):C(4)=8 (4) 
200 IF B+W=0 THEN C(B(1))=0: C (B(2))=0O: 
С(в(5)) #0: С(Н(4)) 20: БОТО 50 
205 IF B(2)=B(4) ОК B(%3)=R(4) THEN 290 
210 IF B>AID THEN FOR 2=1 ТО 4:E(Z)=B(Z):NEXT Z:ñID=B 
220 FOR 2=1 ТО 9 
230 FOR D=1 TO 4 
240 IF H(D)zC(OZ) THEN С(2) +С(2) + (B+W) X100--Wx*10 
250 NEXT D 
240 NEXT 2 
270 GOTO 50 
280 REM PICK FOUR NUMBERS 
290 FOR 2=1 ТО 4 
300 D1=C (RND) ) 
510 IF Di=0O THEN 500 
320 О2ЕС(КМО (CQ) ) 
2200 IF П250 THEN 220 
540 IF INT(D1/10) > INT(D2/10) THEN #62)=01 
350 IF INT(D1/10) < INT(D2/10) THEN B(Z)=D2 
X60 IF INT(D1/10) = INT(D2/10) THEN B(Z)=D1 
370 IF В(7)>100 THEN В(2) -В (2) -1ООЖТМТ (В (2) /100): 
GOTO 370 
390 IF B(Z)>10 THEN B(Z)-B(G)-I2O0XINT(B(OZ)/10)0:GOTO 580 
370 NEXT 2 | 
400 IF B(1)=B(2) OR В(1) -В(5) OR B(1)=B(4) 
OR B¢(2)=B(3) THEN 290 
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405 IF B(2)=B(4) OR В(5)-Б(4) THEN 290 | е AMANUENSIS d$. 
тұз 


410 IF AID?O THEN COzO:FOR 221 TU 4s IF ЕД) =Е (Z) | Дь, 
m Wisi 


THEN CO=CO+1 
ASO Ма 1О000ЖВ (1) + 1ООЖЕ (2) +1ОЖЕ (5) +В (4) 2 tJ 






420 IF AID?O THEN NEXT Z:IF COXAID-1 THEN 290 


TUM 4 " я 
Рет Iri "I u 
qne E T | 
Ет 
|] 7 
„а jJ 


EN | 440 (GUESS) «М THE POSTULANT BESEECHED NEGLECTFULLY c 
д; ТІГЕ 450 IF GUESS<3 THEN 500 IN THE ENEMY'S CAMP... уе 
ИН 460 CD=1 | WANTING FOR A DOGMATIST, ux 
A 470 СОЕСО+1 | TO RECANT THE DJINN... 

ТІ 480 IF K(CO)sM THEN 290 DISPENSING WITH, THEN ERODING 

ҮШ 490 IF COCGUESS-1 THEN 470 | e. ENCLOSING, WOUNDING, 


J00 RETURN 
SIO-REM- INITIALISE 


320 GUESS=0: ЈЕ AID=0 | 

S30 DIM E(4),C (D) E (4y ,ECIOO) | : * 

= i s = ID 9 | Next we'll have our poetry writing program. This demands no interac- 
магия NLI SEL | | 







tion from you, except for that of admiring the wonderful (!) output of 


i үде program. Here's а sample of the kind of verse it produces: 






















560 NEXT Z 

370 RETURN 

180 РКІМТ:РКІМТ 

UTOSDRINI "T GUESSED YOUR CODE OF"B(1)sB(2):sB(3%)5B(4) 
600 PRINT ТаВ( 5); “ІМ JUST"GUESS"GUESSES" 

410 FOR Z=1 ТО 5000: МЕХТ Z 

620 CLSS:END 





THE ASPIRANT CRAVED SUCCESSFULLY 
IN THE RACECOURSE... 
PRAYING FOR HOBSON'S CHOICE, 
TO QUENCH THE GHOST... 
EMPTYING, THEN BLIGHTING 
...HANDCUFFING, ROTTING, 














THE ASPIRANT ENTREATED HALTINGLY 
IN THE HIPPODROME... 
PRAYING FOR A BLIND BARGAIN, 
TO RECANT THE NAIAD... | 
WASTING, THEN BREAKING 
...RESTRAINING, UNDERMINING. 


THE CONVOY CLAIMED SLAVISHLY 
IN THE COURT... 
PRAYING FOR AN ASTRAL INFLUENCE, 
TO DEMUR THE FAUN... 
EXHAUSTING, THEN GNAWING 
...IMPOUNDING, BREAKING. 











THE POSTULANT ENTREATED ENDLESSLY 
IN THE PLAYGROUND... 
WAITING FOR HOBSON'S CHOICE, 
TO RELINQUISH THE SATUR... 
DISPENSING WITH, THEN DAMAGING 
...СОЕВСІКС, BREAKING. 


THE BEGGAR CLAIMED HALTINGLY 
IN THE THEATRE OF WAR... 
ASKING FOR FORTUNE'S WHEEL, 
TO BACK THE NAIAD... 
DISPENSING WITH, THEN BREAKING 
,.MUZZLING, WOUNDING. 





This is the listing of AMANUENSIS. Once he. 've run it for a 
while, you may well wish to change the words іп the DATA state- 
ments, to vary the kind of poetry it produces. 


10 REM AMANUENSIS 
20 CLS:zDIM A$ (12), Z$ (10) 

ХО REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

40 RESTORE: GOSUB 450: АФ (1) <ВФ 

50 GOSUB 570:А%(2)-ВФ 

60 GOSUE S70: A6 (3S) =Bs 

70 GOSUB 570:44(4) -В9 

зо GOSUB 570: 4% (5) =B¢ 

90 GOSUE 570:45 (4) =B4 

100 GOSUB 570:A (7) =BS 

110 GOSUB 570: АФ (8) =B¢ 

120 GOSUB 570:4%(9) =ВФ 

130 GOSUB 570:49 (10) = 6% 

140 GOSUB 570:А%(11)=Н% 

145 RESTORE:FOR Ісі ТО 100:READ УФ: МЕХТ 
150 6065608 570:48 (12) =ВФ 

160 REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 

170 PRINT "THE ":А5(1) 4" "sA$(2)s" "дф CX) | 
180 PRINT " IN THE "sà$(4)5"..." BJ 
190 PRINT А%(5);" FOR "sAs(S)3"," | 
200 PRINT " TO ";А%(7)%" THE "АФ (8) "а..." 
210 PRINT A$(9);", THEN "sA$(10) "m 
220 FRINT " fe Те нити S ред w W ш Jm 
250 РКІМТЕРКІМТ; M$=INKEY #s Mt=INKEYS 
240 REM XX KK Xo x KKK K ЖЖЖ ЖЖЖ ЖЖ 


1 
170 | 








290 РКІМТІРКІМТ "PRESS °С" TO CONTINUE" 

235 IF ТМКЕУЗ С" THEN 255 

260 CLS:GOTO 40 

270 REM ЖЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖЖ 

280 DATANAPPLICANT", "SUPPLICANT", "MENDICANT", 

| | 4 "BEGGAR", "ASFIRANT" 
290 DATA CLAIMANT", "POSTULANT", "CONVOY", "SENTINEL ^ 
_ сай 24 "CASTELLAN" 
500 DATA ENTREATED", "BESEECHED", "WAITED", "BESOUGHT", 
x | "CONJURED" 
510 DATA "PRESSED", "URGED", "CRAVED", " 

| DEMANDED", "CLAI 

520 DATA"SUCCESSFULL Y" ‚ "COURAGEDUSL у" ,"PROBRESSIVELY" — 


" А | » FOOLISHLY" 
550 DATA ENDLESSLY", "HELPLESSLY", "HALTINGLY", 


340 DATA "NEGLECTFULL Y", "PRIDEFULL Y" v nl 


550 DATA"FIELD", "BATTLEFIELD", "PLAYGROUND", "CIRCUS 
um. | RING", "COURT" 
460 DATA "BEAR GARDEN", "ENEMY'S CAMP", "HIFFODROME", 
"RACECOURSE" 
570 DATA "THEATRE OF WAR" 
580 DATA "WAITING", "ASKING", "HOPING", "WATCHING" ` 
А | s SCREAMING" 
590 DATA "CRYING", "STARING", "WANTING", "STAYING", "FRAYING 
400 рата "THE FATES", "FORTUNE S WHEEL", "HOBSON? 5 CHOICE" 
410 DATA "THE STARS", "АМ ASTRAL INFLUENCE", "А BLIND 
| BARGAIN" 
420 DATA "а SFELLBINDER", "ñ MALEVOLENT SFIRIT","@ ZEALOT 
430 DATA "A DOGMATIST" | 
440 DATA QUENCH" , "RECANT" , "FORSWEAR" , "ñRJURE", 
| "RENOUNCE", "WAVER 
430 DATA "RELINQUISH", "DEMUR", "SWERVE", "BACK" 
460 DATA "GHOST", "SPECTRE", "HOBGOBLIN", "DJINN", 
| "LEPRECHAUN" 
470 DATA "PIXY", "FAUN", "SATUR" à "DRYAD", "МАТАР" 
480 DATA "WASTING", "SPENDING", "USING", "CONSUMING", 
"DRYING UF" 
490 DATA "RUNNING QUT", "EMPTYING", "EXHAUSTING", 
"SQUANDERING" 
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| En 
ІМ Е 
ШІ =, 


550 
ТІ 560 
ТТЫ 570 

| 580 
590 
600 
610 


| 340 


500 DATA "DISPENSING WITH" | 
510 DATA "CORRODING", "ERODING", "BLIGHTING", "ROTTING", 


"GNAWING" 


520 DATA "UNDERMINING", "SHAKING", "BREAKING", "DAMAGING" 


, "WOUNDED" 
DATA "RESTRAINING", "COERCING", "CHECKING", "CHECKING" 
DATA "DETAINING", "ENCLOSING", "IMFOUNDING" 

, " HANDCUFF ING" 

DATA "MUZZLING", "GAGGING", "SUPPRESSING" 
REM ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 
FOR №1 TO 10 ` 
READ 2%(М):МЕХТ М 
N=RND (10) 
ВФ-7%(М) 
RETURN 













THE APPLICANT PRESSED PRIDEFULLY 
IN THE ENEMY'S CAMP... 
WATCHING FOR A SPELLBINDER, 
TO DEMUR THE HOBGOBLIN... 
DRYING UP, THEN ROTTING 
.«. HANDCUFFING, DAMAGING. 


THE CLAIMANT CRAVED SLAVISHLY 
IN THE BEAR GARDEN... 
CRYING FOR HOBSON'S CHOICE, 
| TO WAVER THE DRYAD... 
РАДЕ DRYING UP, THEN ERODING 
а «+ RESTRAINING, ROTTING. 


THE MENDICANT CONJURED HELPLESSLY 
IN THE COURT... 
PRAYING FOR A DOGMATIST, 
= TO QUENCH THE LEPRECHAUN... 
RUNNING OUT, THEN ERODING 
• • • IMPOUNDING, BLIGHTING. 








Dice Games 


Dice games—for high stakes, low stakes, or none—have | 
ular throughout history. Whether the dice were made Hom ped awa 
wood, or carved from the bones of a beast killed for food, whether 
they had four important sides or six, dice have proved a diversion for 
countless men throughout time. 





The dice, physical means of demonstrating the waywardness of 
сере xs also Foe TD E in foretelling the future, and 
ike all oracles, probabl ar s sibili ) ing · 
tide зы p y some responsibility for changing the 

At Troy the Greeks played with dice, as did Mark Antony at 
Alexandria. Italy and France led medieval Europe in their love for 
dice, and devotion to the six-sided cubes has continued up to the pres- 
ent day. In this section of the book, we'll be investigating ways of 
using the random number generator of your computer to take the 
place of physical dice. However, you'll discover that the dice are no 
less compelling because they exist only within the software of your 
computer rather than in a more gross physical form. 

ч Playing against the computer, instead of against another human 
being, changes the “feel” of dice games somewhat. Not having to pay 
up when you lose is one of the real advantages! 
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|| МО SWEAT 


The name of this game—NO SWEAT —comes from опе of the early 
English names for the game from which this is derived. Known as 
"sweatcloth," the game, when first played in England, used three dice 
within a wooden "shoe." 'The most common variation of this game is 
now seen in US gambling casinos, where it is called “birdcage,” be- 
cause of the equipment which is used. 

In birdcage, three dice are held within a metal cage which can 
spin about a central axis. Once bets have been laid, the cage is ro- 
tated. This is supposed to ensure that the dice are spun properly, as 





they are not actually touched by a casino operator. 





Betting in birdcage, and in NO SWEAT, is fast and simple, and 
despite the fact that you might think the odds are in your favor as a 
player, you'll quickly learn how easy it is to lose your shirt. 

You place a bet of a specified amount (see lines 50 and 60) up to 
the size of your stake (held by the variable M, for money— see lines 
30 and 250) and then choose a number between one and six. The 
amount of your bet is subtracted from your stake, and then the three 
dice are rolled. For each one which lands showing your number, you'll 
have an amount equal to your bet returned to you. 

As you can see, this means you have to throw one die with your 
number showing to break even, and two to actuallp make some 
money. The need to throw the same, chosen number twice is what 
gives the casino such a good edge in this game. 
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Line 50 asks you how much you'd like to bet, and the variable А 
is assigned to your choice. This is compared with the money you actu- 
ally have (in line 60) to see if you are trying to bet more than you 
have on hand. Having passed that hurdle, your bet is subtracted from 
your stake in line 70 and then the computer asks you (line 50) to 


enter your bet. | 
The C loop, from lines 100 to 180, rolls the dice and compares 


each roll with your number, reporting to you after each roll. Your 
winnings (if there are any) are also added in this loop. | 
After each round of the game, your money (М) is compared with 
250 Gf you've got more than $250 you've exceeded the house limits 
and are therefore excluded from future play) and with zero (those who 
have no money are not allowed to play further). If, however, you do 
not have more than 250 nor less than zero, you're able to continue 


playing. 
And here's the listing so you and your computer can take part in 


a round or two: 


10 REM ND SWEAT 
30 M=30 
40 [15:80508 240 
50 INPUT"HOW MUCH WOULD YOU LIKE TO BET';A 
60 IF ADM THEN 50 

70 MsM-h:PRINT:PRINT 

80 INPUT"WHICH NUMBER ARE YOU BETTING ОН“; В 

90 IF ВСІ OR B) 6 THEN 80 

95 6050 280 

100 FOR C=1 TO 3 

110 нед 

120 60508 2000:PRINT925, "АТН-"; 8 

130 PRINT:PRINT"DIE"C'FELL"D 

140 IFD=B AND Cel THEN WeA:PRINT" 50 YOU BREAK EVEN" 

150 IFD=B AND СУ1 THEN W=A:PRINT® 50 YOU WIN фен 

150 M=N+N 

170 60508 240 

175 60508 280:605UB 280 

180 NEXT C 

190 GOSUB 280:GOSUB 280 

200 IF 2250 THEN 310 

210 IF МЮ THEN 40 

220 FOR X=1 ТО B:PRINT'THE GAME IS OVER,'COS YOU'RE BROKE!":NEIT 
230 6070 230 

240 РИНГ" 


250 PRINT" YOUR STAKE IS NOW $"M 
260 РЕН ELSE LED E HL EL LI 
270 RETURN 
280 FOR Р-1 TO 1000 
290 NEXT P 
500 RETURN 
310 FOR 1-1 TO 30 
320 PRINT'YOU'VE TOPPED $2501" 
330 PRINTTAB(J); "WELL DONE! 1 
335 FOR 1-1 TO 100:NEYT 
340 NEXT J 
550 COLOR, 1: Р081=170500: НЕХТ: COLOR. 0: FORT=1 T0500. | 
ыҚ а onl ,0:Ғ081-170500: МЕХТ: 5070 350 
2010 CLS:COLOR,I 
2020 PRINT TAB(14);"DIE"C 
2030 D=RND(6) 
2040 FOR 1528810 TO 28822:POKE I,140:NEYT 1 
2050 FOR 1528810 ТО 29066 STEP 32:POKE I,138:NEIT 1 
2060 FOR 1529066 TO 29078:POKE I,131:MEYT 1 
m на рака Т0 29078 STEP 32:РОКЕ 1,153: НЕТ 1 
28810, 142: POKE 29068, 139: POK :POKE 2882; 
m LAN | Е 29078, 135: РОКЕ 28822, 141 
2100 IF 0-2 THEN 2180 
2110 IF D=3 THEN 2170 
2120 IF D=4 THEN 2180 
2130 IF D=5 THEN 2190 
2140 IF 056 THEN 2200 
2150 POKE 28944, 143:60T0 2220 
2160 POKE 28876, 43: POKE 29012, 143: 6070. 2220 
ва ни 28876, 145: РОКЕ 28944, 145: РОКЕ 29012, 143:80T0 2220 
2180 POKE 28876, 143: РОКЕ 29004. 143; РОКЕ. 28 
пиш, s143:POKE 28884, 143:РОКЕ 29012, 143 
2190 POKE 28876, 143:POKE 29004, 143: РОКЕ 28884, 143: РОКЕ 29012, 143 
2195 POKE 28944, 143: 2070. 2220 
2200 POKE 28876, 143:РОКЕ 29004, 143: РОКЕ 28884, 143:POKE 29012, 145 
2210 POKE 28940, 143: РОКЕ. 28948, 143 | 
2220 FOR 151 ТО 2500: МЕХТ 1:60108, 0: CLS: RETURN 
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ШҮ | | 
|| COMPUTER 
|| ІМ! | | | - 


f | CHEMIN DE COMPUTER is based, as I'm sure you've realized, on 
|| | Chemin де Еег. Іп this game, you and your computer take it in turns 
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to roll five dice, adding the pips up as you go. You are aiming to get a 

qd n higher total than the computer. 
ET ||: i However, this game is not just a simple “add the pips” one. Any 
fae | |. | | die which falls showing а five ог а two must ђе thrown again, and your 


КОРК. | total is just the final digit of the answer (that is, a total of 27 is counted 
ју A is | m | as 7, and a total of 13 is counted as 3). 
EN TECTA ud | Т) ү There аге three special totals—7 (a Natural), 8 (La Petite), and 9 | 
Wü m | (La Grande). The names are only bestowed when the relevant total is | 
| ШІНШІ. | achieved on the first throw (i.e., the dice which came up with 5 or 2 | 
bs | | || d | | have not been, and are not in this case, rethrown). You (and the com- 
| n 


| | puter) always stand on a 7, 8, or 9 thrown with the first toss of the five | 
ре ІШІ dice. | 
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Ав іп тапу other programs іп this book, there is а delay loop 
routine at the end of the listing which is called a number of times 
throughout a game to improve the speed with which the game ad- 
vances, and to give you (in many cases) a chance to read on the screen 
what is going on before the program races on, clearing the screen, and 
leaving you quite unsure of exactly what has just happened. In this 
program, there are two loops, one of which is longer than the other, 
and which also prints a couple of blank lines before returning to the 
main program. 

Line 330 calls a delay and then clears the screen before incre- 
menting the counter GAME in the next line. You are told which game 
it is by line 350 and then the computer announces that, because it is 
taking the role of the banker, who always goes first, it will take the 
first roll. The “roll the dice” subroutine from line 70 is then triggered. 
You'll see that the loop counter G is used (line 80) to set the variable 
А to a randomly chosen value between опе and six each time through 
the loop. If the die comes up with five or two (line 90) then it is reset 
to zero, before the value is printed by the following line. 

The running total is clocked up on variable D, and then leading 
digits are stripped from this (i.e., 27 is cut down first to 17, then to 7) 
by line 150. The changing total is printed on the screen each time. 
After a delay the computer prints up “Total on the first roll is. . ." 
and then checks (lines 180, 190 and 200) to see if one of the special 
rolls has eventuated. 

If so, a message to that effect is printed. If not, the computer gets 
to line 210 where it can see if any dice have to be rolled again (C is 
incremented by one each time a 2 or a 5 is rolled, see line 90). If 
there are none which have to be re-rolled, the computer moves on to 
line 410 to print out “бо my final total is. . . ." If, however, C is not 
equal to zero, then the computer runs through another loop (240 to 
300) to throw those dice again. Once again, any dice coming up two or 
five are discarded (line 280). 

Once the computer has had its roll, it is your turn to play. Your 
involvement, actually, is pretty small at this stage. Once you've 
pressed RETURN (lines 440 and 450) the computer takes over for 


you, using the same routine near the beginning of the program to roll ` 


the dice for you, and incrementing your total as it does so. 

Once both of you have had your go, the computer then decides if 
it has beaten you, or you have defeated it, or whether the two of you 
have drawn ("Standoff"). The aim of CHEMIN DE COMPUTER is 
to win the majority out of nine scoring games (and a Standoff game 
does not count as a scoring game). 

"Now the totals so far in Chemin de Computer are . . ." you are 








qo 
9o 
100 
110 
120 
150 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 


ura == 
RT 


240 
250 
260 
270 
280 
290 


ААА 


told by line 670 and—if nine scoring games have not been played— 
hia стене rae some comment on the game ("Looks like I'm in 
ront . . ." or "And you seem to have the edge . . .”) | urning 
to the main program. ' Асет рь, 
Once а total of піпе scoring games has been detec | 
| in | | cted (by line 
700) then the routine from line 750 comes into action. "Weil. old 
buddy, we seem to have come to the end of the game..." the com- 
par tells you, then determines who has been the overall winner. 
ou're in good company when you play this game. Baccarat 
from which Chemin de Fer was derived, was first introduced inte 
France from Italy in about 1490, during the reign of Charles VIII 
The Italian game was called "Baccara." | 
Неге is the program listing: 


REM CHEMIN 
CLS 
САМЕ+0 
БісО:Рік0О 
GOTO 33 
D=O: C=O 
FOR G=1 To за А= Мр (4) 

IF ñ=2 ОК A=5 THEN CzCM1 

PRINT Аҙ: SOUND SI] 

собив 920 

IF Az2 ОК 48 THEN Азо 

D=D+A:NEXT G 

РКІМТІРЕІМТ D: 

IF D>? THEN D=D-10:PR V: РК D: aiu 
де пад. PRINT:FRINT D:GUTD 150 
PRINT:PRINT "TOTAL ОМ THE FIRST ROLE IG" 


IF Це? ТНЕМ РКІМТ "AND THATS LA GRANDE...": RETURN 
IF D= THEN PRINT "AND THATS LA PETITE...":RETURIN 
IF D=7 THEN FRINT "AND THATS а NATURAL... "3 RETURN 


IF C=O THEN RETURN 

GOSUB 930 

PRINT:PRINT C"MUST BE ROLLED AGAIN" 
FOR Z=1 TO C:SOUND X,1:NEXT 7 

FOR A=1 TO C 

GOSUR 920 

E=RND (6) 

PRINT E;:SGUND 29,1 

IF E=2 OR Без THEN шс) 

D=D+E 
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300 
310 
520 
550 
540 
550 
560 


490 


310 
320 
e 
340 
uo 
60 
370 
90 
390 
GOO 
610 
620 
630 
640 
OO 
660 
670 
680 
670 
700 


NEXT 

IF D>9 THEN D=D-10:PRINT Ds: ОТО 310 
RETURN 

GOSUR 93os:CLS 

САМЕ <56АМЕ+ 1 

PRINT:PRINT ">>>> THIS IS GAME"GAME" 4454" 
PRINT "ЖЮЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ" 
PRINT " мой, I'LL ROLL AS BANKER..." 
PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ" 
GOSUB 70 

GOSUB 900 

PRINTs:FRINT "SO MY FINAL TOTAL 150 
GOSUR 900 

PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ" 


с A$=INKEY$S: Аш" 


FRINT " PRESS КО TO ROLL YOUR DICE” 


е AS=I[NKEYS: IF АФК" THEN 443 


PRINT “OOOO OOOO OK" 

J=D 

GOSUB 950 | 

GOSUB 70 | | 
PRINT:PRINT "SQ YOUR FINAL TOTAL IS"D | 
PRINT:FRINT 

GOSUB 950 | 

PRINT "COPUTER", "HUMAN" | 
GOSUR 900 | 
PRINT 1,0 

GÜSUB 950: РКІМТ 

PRINT "$$95$$$$$959$SSSTSSSSSSTSSSSS$SD$$U 

PRINT ТАВ (5) ; 

IF J=D THEN PRINT "THATS à STANDOFF":GOTO 620 

IF J»D THEN PRINT "I^M";:BisEi*il 

IF D»J THEN PRINT "УОП" КЕ"; :Р1=Р1+1 

PRINT " THE WINNER THAT TIME!" 

PRINT "%%%%%%%8%%8%%%%%%%%%%%%%%%%%6%%%" 

PRINT:PRINT 

GOSUB 900 

PRINT " NOW THE TOTALS SO FAR IN" 

PRINT " CHEMIN DE COMPUTER ARE" 

PRINT Bi"FOR ME, AND"P1"FOR YOU..." 

PRINT:PRINT 

GOSUB 950 

IF БізРіс9? THEN 750 





710 IF Bi2P1 THEN PRINT " LOOKS LIKE 171 чт!" 
720 IF Р1>УВ1 THEN PRINT " AND ub ae Жы. a 
| I = zl ч 
а ае HAVE THE EDGE! 
740 GOTO 530 
750 REM END OF GAME 
760 PRINTs:PRINT | 
770 PRINT "WELL, OLD BUDDY, WE SEEM" 
780 PRINT "TO HAVE COME TO THE END" 
790 PRINT "ОЕ THE GAME...WITH А TOTAL" 
800 PRINT "OF NINE SCORING ROUNDS..." 
810 возив 900 М 
820 IF РізВі THEN PRINT "AND, FOR DNCE. IT IS" 
825 IF Р1>В1 THEN PRINT "YOU HAS BEATEN сық ден 840 
850 IF БІЗРІ THEN PRINT "AND, ONCE AGAIN, THE" 
857 IF B1SP1 THEN PRINT "МІӘНТУ MACHINE PROVES THE" 
m оаа ЕМЕ CHAMPION! | 
850 PRINT "THANKS FOR THE GAME, OLD" 
860 PRINT "BUDDY,WE MUST DO IT AGAIN" 
870 PRINT "SOME TIME, WHEN YOU FEEL" 
880 PRINT "LUCKY 
890 END 
900 FOR Z=1 TO 1500: МЕХТ 7 
910 PRINT:PRINT 
920 RETURN 
930 FOR 7=1 ТО 750: МЕХТ 7: КЕТИКМ 


п ® и в = ш = ют юв эв в в nunan... 

















| |ONE-AND-TWENTY 


Our dice games continue now with ONE-AND-TWENTY which, as 

you realized the moment you read the title in the introduction, is a 

dice version of blackjack. | 
The game is simple, but demands a degree of cool thinking, as 

well as the ability to guess which numbers are going to come up next | 

when the die is rolled. In ONE-AND-TWENTY, you аге playing 

against the computer. | 
You are always given the first go. You roll the die as many times | 

as you like, aiming to get a total as close as possible to, but not ex- 


ceeding, 21. You can stop adding to the total whenever you like. | 
If you exceed 21 (that is, you “bust”) then the computer wins that | 
round automatically. А game consists of five rounds, and the winner I 


of the most rounds, naturally enough, wins the game. | 
After initializing some variables (including HS for the human | 

score and CS for the computer score) in lines 20 and 30, and clearing 

the screen in line 40, the computer asks you to “Press 'R' to roll, 'S' to 

stand." The word "Stand" means you are happy with the total you've 

achieved so far and you'll stay with it, giving the computer a chance 

to try and beat you. You'll soon learn that the speed with which you 

enter an R or an S can affect the number which is thrown, because 

the delay between the “Press ‘R’ to гой...” and the time you actu- 
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ally do press an R or ап 5 is used to create a number (N) which— 
together with your current total—is used to seed the random number 
generator for the next dice roll. 

The lines from 50 to 170 control your dice-rolling, and the com- 
puter only exits this cycle when you decide to stand. The whole of the 
computer’s game-playing logic is held within line 180, which deter- 
mines whether it is worth risking a bust to try and exceed your total. 
If it decides to roll, the lines from 190 to 250 control this. 

Once the computer decides it has had enough of that, it uses lines 
260, 280 and 290 to determine who has won. If both your scores are 
the same, or both of you are over 21, then the round is counted as a 
dead heat (line 320 tells you this), and neither CS nor HS is incre- 
mented. Line 280 spots a computer win, adding one to CS and print- 
ing “I,” while the next line adds one to HS and prints “You.” The 
mysterious “I” and “You” are used as the first part of the sentence 
concluded by “win!!!” in line 300. 

As in CHEMIN DE COMPUTER, where the aim was to get the 
best out of nine scoring games, in ONE-AND-TWENTY, the in- 
tention is to score wins in the majority of games out of five. Line 390 
looks to see if this has happened, and if so sends the program to line 
450 where the result of the game (with a sarcastic comment or two) is 


If five scoring games have not been played, line 400 asks you 


printed. 
” and after a brief pause (line 


to “Stand by for the next round . . 
430), the next round is upon you. 
This listing will enable your computer to challenge (and probably 


beat) you in ONE-AND-TWENTY: 


10 REM ONE-AND-TWENTY 

20 H&sOos:CS5zo 

AO Нео COs Ма) 

40 CLS | 

єй PRINT "PRESS "R" TO ROLL, "SS" TO STAND" 
60 реј МКЕУФ: DS=INREYS 

70 А%=]МКЕҮ 

go IF ec» "К" AND АФ > "S" THEN 70 

90 IF дф="б" THEN CLS:PRINT "YOUR TOTAL IS"H:GOTO 180 
110 GOSUB 430 

120 R=RND (6) 

120 PRINT "YOU ROLLED A"R: SOUND R+12, R 

140 НЕН+К 

150 PRINT "SO YOUR TOTAL IS"H 

160 GOSUB 430 

170 FRINT:GOTO 50 
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180 


190 
200 
210 
220 
250 
200 
zug 
260 
270 
280 
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кг 
310 
520 
330 
540 
Ее 
560 
370 
3580 
A90 
аоо 
410 
420 
430 
440 
450 
460 
470 
480 
490 
495 
200 
309 
907 


310 
20 


EID 
340 





IF Сн AND C«22 OR С>21 OR H»221 OR H=21 
већмр са) AND C-21 THEN 260 


GOSUB 430 
PRINT:FRINT "I ROLLED A'R 
SCR | 
PRINT "SO MY TOTAL IS"C 
GOSUB ахо 
GÜTO 180 
IF H=C OR H»21 AND C221 THEN 520 
GOSUB 510 
IF (СУН OR H221) AND C22 THEN PRINT 2" ба 
22 тн NT ,"I";:CS8sC 
ТЕ «сен OR C21) AND H«22 THEN PRINT | ^ ^ ^. 
PRINT " WIN!!" "YOU"; :HS=HS+1 
GOTO зхо 
PRINT "THAT ROUND IS à DEAD HE "ong и 
GOSUB 510 | 
PRINT "AFTER THAT ROUND, THE GAME SCORE 15" 
совив Azo з ОСОКЕ IS 
PRINT TAB(7)s"YOU:"HS". AND МЕС 
GOSUB мо |. i 522% 
IF CS+HS=5 THEN 450 
PRINT:PRINT "STAND ВУ FOR THE NEXT ROL 7 
GOSUB 43O:GÜSUB 450 D ~ е NE 
CLS:GOTO хо 
FOR Озі ТО 500: МЕХТ 0 
RETURN 
PRINT:FRINT "THAT'S THE END OF THE . 
š | | = (5 Т! 
PRINT:PRINT "FINAL SCORES: " ix 
PRINT ,"YOU: "HS 
PRINT ," ME:"CS:PRINT 
IF CS>HS THEN PRINT "AND I DEFEATE IMANOID ' ' 
IF CS>HS THEN GOTO 530 | His s 
PRINT "AND REMARKABLY, А MERE H 
| | | LY y z HUMAN" 
PRINT "BEAT THE MACHINE! !":SQUND 5,3 
GOSUB 450:60608 430: GOSUB 430:GOSUBR 450: | 
| GOSUB 450:ЕМР 
PRINT:PRINT "ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ" 
RETURN :FRINT 
SOUND 28,3:80UND 28,2:S0UND 25,4:SQ0UND 30,2 
SOUND 25,5:END 
187 













| | | | 
n. | 
ІП | 
a | | MALIBU | 
| || | 
У 11 Roll the dice now for а few rounds of Malibu. You апа the computer | 
i | | take it in turns to roll three dice each. Various dice combinations, and | 
| UE the total of the three dice, are worth points. For example, if the total || 
: | || d | of the pips showing is 13 ("Lucky Joe") on the computer's dice, the | | | 
ІІ as computer gets six points, and the human loses six points. ІІІ, 

| | i hae You start the game with 50 points each, and there are five rounds | | | 
ши ТШ to а game. Ав I said, there аге certain winning combinations (such ав | || 
ТІ | ТІ | three віхев, called a “high гоПег”) and certain winning totals (such as 9 ТІ) 
ІІ i |. | or 12, a "straight road"). You can score more than once from a single || | 
ІП. || roll, so if your total of піпе was gained Бу rolling two fours and a one, ІП 
B you'd get the "straight road" score of three, plus another three for | | 

ТШ getting “two of a kind.” | I 

ІШ The only exception to this is rolling three of a kind ("triple | || | 

ІШ | crown"). You can score most of the other possible combinations, al- | | | 

n though you cannot get “two of a kind" and "triple crown" from the ! 

ПП same roll. ||| | 

ШІ | | Now this may all seem very confusing. It is much easier to play | | | 

|: n | than it is to read about, because the computer rolls the dice for you, || | 

Ш works out what the score should be, and keeps the tally. All you have | ІШІ 

| | | | to do is bite your fingernails as you watch the computer defeating you x || 

|| WELCOME TO THE GAME OF MALIBU |||| 
WHICH IS PLAYED WITH THREE DICE. .\ ||||| 

АНАТ IS YOUR МАМЕ? ТІМ ||| 


Ок, ТІМ, FRESS THE ЗРАСЕ 
BAR WHEN YOU'RE READY TO PLAY... 


THIS 18 ROUND 1 
Time 50 МЕ: 50 


FIRST I'LL ROLL THREE DICE FOR 
MYSELF...STAND BY... 
wo ROLLING DIE 1 WHICH САМЕ UP 4 


E I 
^v. 189 || || ||| 
188 | n | IM | 


Í 
i 
| 
ІШ 
||| | 
ШИ 
|| 
| | i 
| | | 
| | 
| 1 
М 
ҮЙ! | 
| ||| A Ë 
| 11011 





КЕСТЕСІ DIE Z WHICH CAME ОР 2 


AND NOW IT'S TIME TO ROLL FOR YOU 
peur DIE 1 WHICH RE ШР ё 


.. «ROLLING DIE 2 WHICH CAME ur 5 


dete dG e 434585 алалы eh тате wi PSESE eS eee ee ¿amas ee ee веран інін ыы ысы ua mm mius гізін SR B EG: ieee F H Был ышы важен кетте зе iic ығы 


„нз. ROLLING DIE 5 WHICH CAME UP ё 


PIE 66 bias Ma Gmbh жете кісен EIE Rima inam пана вава ВРЕМЕ прво PANE quam шыла алин шата кеніш SE ше mima muwu Бына амы HAE тына налан wawam siqan Reid Бына Быны ша шшш ет Бен 


I ROLLED 4 2 4 


YOU ROLLED à 5 = 
$$ TWO OF A KIND FOR ME $ 
$$ TWO OF A FIND FOR YOU $$ 


FTER ROUND 1 THE SCORES ARE: 
М27500: SO 


THIS IS ROUND 2 
ТІМ: 50 МЕ: 50 


FIRST ІСІ. ROLL. THREE DICE FÜR 
MYSELF. пи STAND BY. н п 
we ROLLING DIE 1 WHICH CAME UF 1 


2. «ROLLING DIE = 


na aa ROLLING DIE 5 WHICH CAME UP 


ғ. загар MAIER ват? ите? gebe ізге dee erem Rama жата алкан мысы: umama ee ee HESE RASE вешање ы ыны ee dee eer Бети тыға SS жынын ee пати ee ees re eee ee Ee: 


AND NOW IT'S TIME TO ROLL FOR YOU 
T Ln ПОТЕ 1 ОСИ CAME UP 1 


...ROLLING DIE 2 WHICH САМЕ ОР 


eus ғы аашаа антин ште сене HAS GSIS ене тама алына в флаша қыла ааа пази вести кен dish сән інен нын вена вена палиш пра G vim тетін PEHA mimi debt ғым idem arra шегін mrrra nra 


„а ROLLING DIE 3 WHICH CAME UP 5 


rar кет== кетик Ӛзін 5554 бажа: ғыз: umasa (deme qanman bheit «ту иу = ашшы паша Liman важи cere Біте qücebs cine ға аказы dude. алаға suu bpm» dores deeem кезен сыз жемі ыла ана ви amara urs d жете" 


I ROLLED 1 6 1 


YOU ROLLED 1 в 3 


>> YOU CRACK A STRAIGHT ROAD 
“< 
$$ TWO OF A KIND FOR МЕ %% 


: > ТТ ROUND 2 THE SCORES 
>>>» TIM: 50 VZ300: 50 


THIS IS ROUND 5 
TIM: 49 МЕ: Si 


FIRST ІСІ. ROLL THREE DI 
GE F 
MYSELF...STAND BY... бе 


даны DIE 1 WHICH САМЕ ЫР 


.. «ROLLING DIE 3 WHICH CAME UP 


түлен AGAR Geter urmaq нее s= m ш 
және гін талан века атып 
БЕЗ minum аа Ба den a палиш Rie шыма 5 isis кезін аныш s= іше 
EHS amuk НЕВА штити жым неге mwa 
ШЕН ии кышы D 
— == 


FS NOD 17178 TIME TO ROLL FOR YOU 
и DIE 1 "WHICH CAME UF 2 


d 


. ROLLING DIE 2 WHICH САМЕ UP 1 


Sete ғылы кӛзің вели ша = Шетен per 
mtm masa Беара тына шыма Зета а w 
maut id m алати ies si" БӘӘ ане шина пен шине BSR Еттен паша өзне ниша dme mamas 
d 
жамы поље manan sass ыз 


"e ROLLING DIE 5 WHICH САМЕ UF 6 


LLL rmus ыы += 
талан жеген жалан акак енен 
wanta әнін muna Ligas енен алша 
я Әттен кыла ае ма лым Әнет алға ынан Panen 
майын ТЕН 
BES жеті dimru mas —— 


I ROLLED 4 5 2 


YOU ROLLED #1 ж 
и I CRACK а STRAIGHT ROAD << 
>> YOU CRACK A STRAIGHT ROAD << 





a u wasa 














90 GÜSUE взо јаз 


192 


ТІ кз WE и | 100 PRINT:PRINT "FIRST I'LL ROLL THREE DICE FOR" | 
ІШІ WELL, ТІМ, THAT "DF MALIBU... 110 PRINT "MYSELF...STAND BY..." | 
a QUR LITTLE GAME | 120 GOSUB 850 | il 
En SCORE IS 49 130 FOR 2-1 TO 53: С(2)=0: Н(2)=0: NEXT 7 || 
ПП. TIM*S FINAL SCORE 15 140 GOSUB 840 M 
nm AND MINE IS 51 190 PRINT:PRINT "NOW IT'S TIME TO ROLL FOR YOU" 

E катысатын 160 GOSUB 840 
| | SD 22h THÉ x 170 PRINT:FRINT "I ROLLED" C(1) CDS CC) 
| p M " n Т! 
| n | Mc - TIM (Y OR N)? 180 PRINT:PRINT "YOU ROLLED НО $H(2) 8H 03) 
||| DO YOU WANT ANOTHER GAME, | 190 REM ЖЖЖ ASSESS RESULT OF ROLLS xxx 
|| ха 200 нтен(1) +Н(2) +Н (2) 
ІІІ ae? ч THE GAME, ТІМ | | 
ul OK, THANKS FOR THE GAME, 210 CT=C(1)+0(2) 4C (3) 
ІШ SEE YOU AGAIN SOME TIME 215 Его 
ІІ Ни e — 220 IF (C CD = (2) ОКС (2) «С (3) ORC CL) SC (5) ) амрст=1 з 
Bu Цонев n BO THEN F=1 
TM when one player gains a certain number of Fr x ек 228 ТЕЕ =1THENPRINT" THAT? с SOUGH FOR MEI". CS=CS+1io 
|| || the other player's total, so the totals always add up to : : HSzHS8-10 
||| Edi 250 TF (H(1)=H(2) ОБН (2) =Н C3) ОБН (1) =H (3) ) ANDHT=1 3 
Du РЫ Мате | THEN F=2 
||| "Жс h Ts g upa seas ++ 10 | 255 IFF-2THENPRINT"THAT*S SOUGH FOR YOU! ": На=н5+10 
m 13 о a А m ne певана ТҮГҮ. | | | :CS8z08-10 
n us E Қан ој а Straiglit-Road РРСРР 3 | 240 IFHT=1SURHT=6THENHS=HS+4: С8=08–4: PRINT" ЖЕДОУ 
||| ы ыз ком apl Crown, „5 пийка Ета 25 | RIDER FOR YOUX" 
EI Жесе а ертен eaa Piso ora ВИП: околна Saee 250 IFCTz1S0RCT-6THENCS-CS*4: HS=HS—4: PRINT" KEASY 
ІШІ Two the same саде а teen ns ажылы y. 6 | 
Н | а КЕРЕ bh de fs ГҮ Lucky J AW ^ wei or a | RIDER FOR MEx" 
"i Ей VR MER he a e QN | 260 IFCT-90RCT-12THENCS-CS«3: HS=HS—3, рах 
m | обади sa — High Roller ......... | 265 IF F=3 THEN PRINT ">> I CRACK A STRAIGHT ROAD. <<" 
ӨШ | 270 TPHT=9QRHT= 1 2THENHS=HS+3: CS=CS-3: F=4 
ENIM |“! š “ ~ ( 
| || | The only losing throw is a seven ("Dreaded Seven”), which costs you 280 TEC THEN PRINT">> YOU CRACK А STRAIGHT ROAD <<" 
| ||: two points, and adds two to your opponent. 280 1ТЕС (1) =0 (2) АМОС (2) «C (3) ТНЕМРЕТМТ "А TRIPLE CROWN 
m | FOR МЕ":Е=5 
l ' unis foi sourowicround'of MALIBU 285 IF FsS THEN CS-CS*5:HS-HS-5:GO0TO zoo 
n | Here's the listing for y 490 ТРС(1) ЕС (2) ОКС (2) С (3) ОВС (1) =0 (5) THEN F=é 
D | Re 295 IFF=6THENPRINT"$$ TWO OF А KIND FOR ME $$" 
B 10 REM MALIBU FOR VZXOO : CS=CS+3:HS=HS—3 
d 20 GOSUB 680 | 500 ТЕ (1) ЕН (2) ANDH C2) =Н C3) THENPRINT"A TRIPI. 
D 30 REM ЖИКИНА š НА МАША маи Kua до ЕШ! 
E prd MAIN GAME ROUTINE XX | ds 
||| I ылай АНИ DANE 505 IF F=7 THEN HS=HS+5:CS=CS-5:GOTO 320 
ТІ 50 њу Tei ТО < | зо TPH GL =H (2) ОКН (2) =H (2) ORH (1) =H (3) THENF=8 
M | o Bs m Ta "aT | 31! z ' E ra Г " 
D В. PRINT:PRINT:PEINT "THIS те — 31 - 515 IFF=8THENPRINT"$$ TWO OF А SEND тән MOU ERNIE i 
E @ Е CGXHSC€20 THEN PRINT A$;"z:"sH8;" aie) | _.. |. | la Mu S 
D во IF CSXHSz»O0 THEN PR ' eres | 2520 IFHTz1XTHENPRINT"FOR YQU...LUCKY JOE!" | 
D ва a :SHSesHS*6:CS8208-6 








TECT=137HENPRINT"FOR THE VZ...LUCKEYJOE ! " 
| „Сб-С6+6: Н6<н56-6 


3.50) 





А 


мод IF F=3 THEN PRINT "IT LOOK 


270 GOSUB 


850: G0SUB 830 


S LIKE А DEAD HEAT...."" 


555 F=O тайы — 580 PRINT:PRINT "DO YOU WANT ANOTE | п 
| 340 IF HT=3 THEN PRINT"LOW AND MEAN...FOR YOU!" | 590 PRINT OTHER GAME (Y/N)? 
| tHS=HSt+7:CS=CS-7 600 ЕФ-іІМкЕҮФ 








| | 
| ІҢ ; - P " 
я | || ли) ТЕ Ге THEN FRINT"LOW AND MEAN. и. FOR „7 | 610 ТЕ КЄ oye амр Е ^y n TT 
x ||| | | асыла ады 615 IF F$-"Y" THEN &so СОЗ 
||| X60 IF HT=18 THEN PRINT'"HIGH ғаттан ығ, sui 620 PRINT "OK, THANKS FOR THE GAME, ":PRINT Ав; 
li | | Манн н Pia | i ~ | = i SEE YOU A Ма 
ШІ 65 IF Е=1 THEN HSsHS-12: CS8-08-12 | 625 PRINT " SOME TIME":END BAIN 
m 370 IF СТе18 THEN FRINT"HIGH ROLLER FOR THE 6350 PRINT "OK, "sA$:", STAND BY..." 
N | | /2300. ..":Е=2 640 GOSUB 830 
||| 375 IF F=2 THEN CS=CS+12:HS=HS-12 690 GOSUB 760 
B 380 IFHT=7THENPRINT" YOU TRIPFED А DREADED SEVEN" 660 GOTO 50 
Dn : HS9HS—2: CS=CS+2 670 REM 3XXXxxxddooooooooooooee 
ІШІ 590 ТЕСТ+7 ТНЕМЕКТМТ" 1 TRIPPED A DREADED SEVEN" 680 КЕМ ЖЖЖ INITIALISE xxx 
||| : H8::H84-2: С5=05-2 ipea CLS: SOUND 8, 1:SOUND 9,2 
||| | К OO DIM H(3),C 3) 
ІШ Д : SRINT OUT SCORES ЖЖЖ қ | E | 
n ні: Ба ы р е 710 PRINT:PRINT " WELCOME ТО THE GAME OF MALIBU" 
m > PRINT:PR 720 PRINT "WHICH IS PLAYED WITH THREE DICE" 
E 425 РЕТМТ" >>> AFTER ROUND"; T;"THE SCORES" 740 PRINT: INPUT "WHAT fa s 
H || | = no " таа "T MET va dl oa Р ",. `C g d ^ и г (7 МА "m. M. | 
ІШІП 427 PRINT ARE "PART s ұнар”: VESOOF" ша 750 GOSUB 850 Даде ee 
ШІ 430 GOSUB 830:GÜSUB 850 0, 760 CLS:PRINT 
ШІП! 435 IF INKEYS«2"" THEN 435 770 Цено: Pos 
. MM 456 PRINT " >> PRESS ANY KEY <<" d c a inc ДИ 
p ARM O лен, 457 775 IF INKEYSz»"" THEN SOUND RND(15),1:GO0TO 775 
NS C 438 SOUND RND(20),1 s mdi : OK, "ҙАФҙ;", PRESS THE" 
m 440 REM ЖЖ CHECK BOTH STILL IN GAME ЖЖ EL A vn Br BAR НЕШ, TOU RE READS 
n - 41 :1 THEN Те5 A cag PELLE EET. 
Т! P Тези urmas бос RT=RND (999) : ТЕ ІМКЕҮФ="" THEN 800 
ІШІ 60. | | O RETURN 
NT ` | 
ІШ 470 REM ЖЖЖ RESULT OF FIVE ROUNDS ЖЖЖ вијет | у 
mu 480 PRINT:PRINT "WELL, "ав", THAT'S THE" Вто КЕМ жж DELAY SUBROUTINE Xx ` 
AM 490 PRINT "END OF OUR LITTLE GAME Or а SOUNDRND (8) " 1: FORI-i1TO 1600: NEXT I 
D MALIBU..." | | : SOUND. RND (25) , 1: RETURN 
||| SOO PRINT:PRINT 8%;""8 FINAL SCORE IS";HS 940 REM kkk DICE ROLL жжж 
M 510 PRINT "AND MINE IS";CS S3O FOR 2-1 TO 3 
b bii A 860 PRINT "ROLLING DIE";Z; 
i Ето PRINT 820 FOR Ізі TO 999:NEXT I 
B E40 Ед ТЕ CS2HS THEN F=1 d Ea won Jp: 
D 545 IF HS>CS THEN F=2 890 PRINT "WHICH САМЕ UP";K 
ТШ S50 IF HS=CS THEN F=3 E EM КРИ инни > 
B S55 IF Ее THEN PRINT "SO I'M THE WINNER!!" ссе ж С(2) #0 THEN C(Z)=K ELSE H(Z)=K 
m “80 IFF-ZTHENPRINT'"SO "АФ: " TAKES THE" ge EMT Дә 
E :PRINT "WINNER'S TROPHY" 70 GOSUB 8:0 
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940 RETURN 


195 
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|] SNAKES’ EYES 


SNAKES’ EYES demands some more cool thinkin 
You and your computer take it in turns to throw a 


add the total of the pips, and in turn add this to your 
You can roll the dic 


seven, you automatically lose, Therefore, 
demands you make decisions based on w 


score, 


and perhaps lose the round by not rolling a high eno 
whether you should be 
and risk a seven. 


A 


š 
N 
N 
N 
S 
Ni 


š 
у 
^ 
à 
^ 

^ 

^ 


w % 


You'll find that it is relatively easy to program games like this on 
your computer. Once you've worked out the “mechanical” routines 
which do such things as roll the dice, and increment the score, for the 
human player, it is not very difficult to work out a routine to enable 
the computer to use the same mechanical routines. Most dice games 
do not demand much “intelligence” and their strategy can often be 
reduced to a couple of IF/THEN statements. Read books on dice 
ватез--зисП as the excellent Dice Games Old and New by William 
E. Tredd (The Oleander Press, New York, 1981)—to get ideas for 
games to turn into programs, and for simple ideas on how to play the 
game as well as possible. It is these ideas which you should find rela- 


g under pressure. 
pair of dice. You 


е as many times as you like, but if you roll a 
аз you can see, the program 
hether you should be careful 


ugh score, or 
greedy and go for the absolute maximum score 





tively easy to turn into simple “intelligent algorithms” to enable your 
computer to play reasonably well against you. 

And if, as in this case and іп ONE-AND-TWENTY, you stipulate 
that the human must go first, the computer knows exactly what target 
it is aiming at, and therefore starts a round with a considerable advan- 
tage, which helps overcome the machine's inherent stupidity. 

Anyway, this is the listing for the game: 


10 REM SNAKES EYES 
20 CLS 

хо HzO:CZ-O 

40 HS=0:CS=0 

20 FRINT "FLEASE STAND BV..." 
60 GOSUB 700 

70 CLS:PRINT:FRINT 


во PRINT "YOUR TOTAL IS"HS:PRINT 
90 GÜSUB 710 
100 PRINT "PRESS КОТО ROLL," 


120 PRINT "*0* TD QUIT” 
120 O#=TNKEYé: OF=INKEYS 
150 W$=INEEYS 

150 IF Wc? "К" AND ИФА > 
160 IF W#="Q" THEN 220 
170 GOSUB 370 

180 IF Z=7 THEM 350 

190 HS=HS+Z 

200 РКІМТ:РКІМТ 
210 GOTO 60 

220 PRINTsPRINT:PRINT 
250 GOSUBH 700 

240 GOSUB 370 

250. IF Z7 THEN 330 
260 CS=CS+Z 

270 PRINT: PRINT 
280 FRINT "YOUR TOTAL 
270 IF Сасна THEN 220 


"Шш" THEN 139 


"YOUR TOTAL IS"HS 


"STAND BY" 


"Py TUTAL = as 
[S"HS 


E 300 IF CS=HS THEN PRINT "IT'S А DEAD HEAT!" 


510 IF CS»2HS THEN 350 
| || 20 GOTO 510 

TM 330 PRINT:FRINT 
| 540 GOTO 510 

i 350 PRINT:PRINT 
||| 360 GOTO 510 

| 198 


"YOU WIN!!'"zHzH-1 


"I WIN! !"sCZ=CZ+l 





ттн E— 


370 REM ROLL DICE 

380 CLS 

590 FOR G-1 TO 20 

400 X=RND (6) x 

448 Y=RND (6) | 
20 FRINT:lRINT "рт чун | 

450 FOR Р=1 TD маи я шайына и 

440 NEXT 0 | 

450 CLS | 

460 GOSUR 710 

470 PRINT "DIE ОМЕ: "у" 

480 Z=X+y 

490 GOGUB 700 

500 RETURN 

510 РКІМТ:РКІМТ "THE SCORE IS;" 


DIE TWOs"Y 


S20 PRINT ,"YOU:"H 
530 PRINT ," МЕ: "С? 


540 IF CZ+H=9 THEN 580 
S50 GOSUR 710 
S60 IF H>CZ THEN PRINT "YOU ARE LEA 3 
5 | | U ARE LEADING!" 
570 IF CZ3H THEN PRINT "AND I'M ` " 
ссе тараз ЭМ IN THE LEAD... 
590 CLS 
600 IF CZ+H=9 THEN 620 
510 GOTO 40 
620 PRINT: PRINT: PRINT 
630 PRINT "WELL, BUDDY "Gg | 
| | ң ТНАТ У 5 : = И 
640 PRINT " OF THE GAME..." Ер 
650 PRINT:PRINT:PRINT 


660 PRINT "YOUR FINA 
de | L SCORE Мас" 
670 PRINT "AND MINE WAS"CZ:iPRINT 


680 IF HZCZ THEN PRIN 
9 IF HXCZ TH T "I'NCOTME Q um 
$70 PRINT "YOU'RE THE WINNER!!";END ^. '9010 720 
ЧО FOR P=1 ТО 1000:NEXT Р: КЕТИРЕМ 
710 PRINT бо 
720 GÜSUB 700:50808 700 Е 
730 CLS:A=0:L=2; Z=% 
740 POKE 2867244, 1274 (2816) 
mc 122 AND (A*1)/32-INT((A*1)/32) THEN 1-4 
770 TE "272 AND PEEK(28673*4)«»32 THEN L=2 
ово ТЕ 114 AND PEEK(28672+A+32)<>52 THEN L=1 

F L=1 AND РЕЕК(28671+4)<>52 THEN Lez 











ААА 


n 

||| 
ТІГІ | | ; : | 
I | 790 IF L-3 AND PEEK (28072+4-52) <> 42 THEN L=2 | | UNDER КМ” OVER 
n 800 IF L-2 THEN А=А+1 | Маў d ІМ. 
ТІ 810 IF L=1 THEN А-А-1 
| ИЦ 820 IF L=3 THEN А-А-52 
ІШ 830 IF L=4 THEN A=A+32 UNDER 'N' OVER is a computer adaptation of the dice game usuall 
| | || 840 IF А2511 THEN А=511: =] | known as “Under and Over Seven.” Іп this game, you bet on nid 
| ||| | 950 IF Lz? AND РЕЕК(28672+8) M roe THEN L=4 likelihood of the total of a pair of dice landing so that the total is: 
IM 860 IF L=4 AND PEEK (28672+A+32)<>32 THEN L=1 i 
| n | 870 IF Lz1 AND PEEK(28671+ñ)<>32 THEN E 4 * less than seven; 
mU ||| 880 IF 1-2 AND РЕЕК(28672-А-52)<>52 THEN L-2 E На ae 
EU Ea 890 C-RND(2)-1:IF Cei THEN X=X+1ELSE X-X-1 Spr ацша о ок а 

СШ 900 IF X«5 THEN COLOR, O * greater than seven. 

| "n M is za 2 COLOR, 1 Again, this is a game which—at fi 

I | 920 = : | p ame which—-at first sight —seen e | 

(RM 930 GOTO 740 o M peret des UE V You played the game forever | 
LM 1 | | 1 4? : | , 
ni x | wins mussel a ьт dice, you'd find your losses would outweigh your | 


=i 











| | x Lines 70 and 120 ask 


| tie you to place your bet, giving you the ke 
for entering it (press A to bet under seven, B to bet on sven and C to 





ШІ 

"ШІП bet on a total greater than seven). Lines 130 | 

n. E ut · Lines 130 and 140 read the key- 
ІШ; at b | 1 : я | a Я А 

a ІІ | ie ч using INKEY$, rejecting (line 140) апу input which is not А, B 
ED | | Having received i ji is : 

B | Ë received a valid choice, the odds аге printed up by 1 | 
MN | | | | | | » | y lines 
| ||| Eis to 180 and then line 200 asks you to enter the amount of your 
a | | et. ОҒ course, you can't bet more than you have (not in this game, 
ШІ, 200 
СТІ! 201 





= == k mM Н s I 























|| 
| d 
| 1 ks your bet (A) (М) and EE 
Ti | | » line 220 checks your bet against your money an 240 PRINT ТАВ(7); "DIE п 
1 | | | | en't got enough prints up: “You haven't got that much!" | 250 GOSUB 470 а“ 
| | ||| next section rolls the dice, assigning random values between | 260 C=RND (4) 
Wal six to variables B and C, and adding them to produce total D 270 PRINT TAB(7)s"DIE TWO E ШЕ" 
n. 80. You are told of the total by line 300. 280 D-C4B iA RN d ou s 
|| | 290 GOSUB 470 
| | ||| | | "m. )utcome | 500 PRINT "S0 THE TOTAL IS"D 
||| | || || This is determined Бу the routine from lines 310 to 350 where а | ~ da segal x | 
| ІЛІШ | loss is first assumed (line 310, with variable W, for “win,” assigned to | E | 2 AND ве "Е" THEN W=4xA 
| | M | the negative of your bet). This is changed—if пеедей--іпіо Ше cor- | се IF П<7 AND A$-"A" THEN W=A 
UN rect amount for a win if one has, in fact, taken place. You can see you | Sc Е F Ping AND AS="C" THEN WA 
| Tn | get paid four times your bet for correctly specifying the dice will land са О GOSUB 470 | 
L fs with a total of seven (line 320) and even money for either over or 370 I ze Ср | 
ip |. under seven (lines 330 апа 340). e IE apa Ше қаш и YOU'VE JUST WON $"W:GOSUE 530 
Пр | Lines 370 апа 380 tell you about your win (ог loss) and then line | A SIS i a PRINT "AND SO YOU LOSE Ф" (Wk~1) 
| ІШІ 420 checks that you still һауе some money іп hand. If you һауе, you a So 1 ТӨГЕ на 
ІШІП are offered а new round of the game. If not, you are dismissed with a 410 GOSUB 470 
m certain severity. pa S E | И 
| | | | Here's the listing to turn your computer into a dice fiend: im "i + OPHEN-SOQ 
B 3 | 440 бОТО 50 
||| i i UNDER ^N" OVER 450 PRINT:PRINT "YOU NOW HAVE $"M 
ӨШІШ 40 M=30 460 RETURN 
m || о Медо 470 FOR P=1 TO 1000:МЕХТ FP 
| MIN зо GOSUB 450 480 PRINT: РЕТМТ 
n || 80 GÜSUB 470 | | | 490 RETURN — | 
ІШІ | d iiri при E ы? ir A 500 PRINT "YOU'RE FLAT BROKE, "BUDDY'":S0UND 3.9 
ІШ Ер оу 510 PRINT "SO І GOTTA CLOSE THE CASINO":SDUND 2,7 
n (cc lees MR NN а "ким | 520 PRINT "THERE'S NO ROOM FOR DEADBEATS IN MY 
n 110 PRINT " "B" TO BET ON 7, OR" 525 END TENT? кабыш d 
ШІ 120 FRINT " °С° TO ВЕТ OVER 7" 950 SOUND 21,4:SQUND 16,2:8 
ШІ = 6 | 4221 Ü - 
1 а d : UND 16,1:80UND 18,4: | 
| ИЩ 140 IF А% > "А" AND A$z5 "B" AND А%<> "С" THEN 150 340 SOUND O,1: SOUND 20, 4s SOUND 21,4 За ни, 
E 150 PRINT:PRINT "THE ODDS ARE:" 350 FOR 1=0 TO 31: РКІМТӘТ, CHR$ (143) : 
n | 140 РКІМТ А - PAYS EVEN P | PRINT31-448,CHR$ (143) ; : NEXT 
ШІ 170 PRINT " B - PAYS 4 TO 1" 560 RETURN 
ІШІ 180 PRINT " Ü - PAYS EVEN" 
E 190 GOSUB 470 
||. ||| | 200 INPUT "HOW MUCH WOULD YOU LIKE ТО ВЕТ": а 
ІП 210 GOSUB 470 
11 220 IF АУМ THEN PRINT "YOU HAVEN*T GOT THAT MUCH!": 
ІШ | FRINT:GOTO 200 
| | 203 











| | LISEVEN/ELEVEN 


|| ||| | SEVEN/ELEVEN 15 another fine dice game, and one in which 
||| | your goal changes іп each рате. Based оп craps, you have a “target 
number” to reach in each round (known as your “point” in craps). 
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| D. B Craps is an American version of the old English dice game “Наг- 

| || | | ard.” In SEVEN/ELEVEN, the complex betting of craps has been 

. | | removed, leaving just the fun of the game. Rather than worry about 
М | | 205 

l. || 204 

| и 





computing odds апа placing “pass” апа “don't pass” bets, you сап TH Ms 
concentrate on the serious business of praying for the right roll to | ds а (6) :FRINT"AND"UEB: SOUND в+24 „В 


соте ир. | уе) пират TR 
In this game, you are playing against yourself. Your winning and d 270 РКІМТ:РБІМІ HB; ñ 
280 GOSUB 340 


losing rounds are tallied, so you know—at every point in the game— imn 

just how well (or otherwise) you are doing. =70 RETURN Е 
You throw two dice аба time. If you throw а 2, 3, ога 12 with Sen РКІМТ"АМО YOU'VE WON"» Изи M=M+20: GOTO 320- 

your first roll, you lose that round. Getting a 7, or an 11, on the first 510 PRINT"AND SO YOU LOSE": L=L+l:SOUND 9,4 E 

roll is the best thing you can do, because you've won that round with | : SOUND Š 4: SOUND 4.4 

that single roll (which is why the game is called SEVEN/ELEVEN). | 320 GOSUB 540 Ei | j 
Any other number rolled as your first roll of a round becomes | 330 GOTO 40 

your "target number." You have to try and roll this again, before you 2540 FOR Т=1 TO SOO:NEXT T 

roll a 7 or an 11. If you manage to Тр D ut. number P you 350 RETURN ЖЫ, 

win that round. However, rolling а 7 ог ап 11 before you've rethrown | X560 PRINT"SO THATE Tur . Ae qr LAMP 

your target total causes you to lose that round. pe du "n WS THE END OF THE ROUND":GDTO 320 
Here is the listing of SEVEN/ELEVEN: | uc. ma 


10 REM SEVEN ELEVEN 
20 B$ = "IN 7/11 YOU'VE ROLLED" 

50 G = O:W -O:L = O:M = 105 

40 CLS 

SO PRINT:PRINT "THE TALLY 50 FAR:" 

60 PRINT "WINS:"W"  LOSSES:"L 

706 = Ü + 1 

BO M = M — 5 

90 PRINT "YOU HAVE $"M 

100 РКІМТ:РКІМТ "THIS IS ROUND NUMBER"G 
110 GOSUB 200 

120 IF A=7 ОК A=11 THEN 500 

130 IFA-2 OR A-3 OR 4-12 THEN 560 

140 Рей 

150 CLS:PRINT:PRINT"YOUR TARGET NUMBER IS"FP 
160 GOSUB 200 

170 IF A-P THEN 300 

180 IF A=7 ОК A=11 THEN 310 

190 GOSUB 340:GOTO 150 

200 NzO:G$-INKEYS 

210 PRINT:PRINT"PRESS КО TO ROLL" 

220 N=N-W: ТЕ INKEY$="" THEN 220 

250 C = RND(6):PRINT"YOU ROLLED "C:SOUND C+12,C 
240 GOSUB 340 
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Space Games 


Good old space, the final frontier. No collection of computer games ||| 
would be complete without a few space games. ||| 


























ГІМООМІ,АМрЕВ 


Тһе scenario of this program is pretty familiar. You are land- 
ing on the moon, with limited fuel, and for some reason your onboard 
computer is incapable of doing anything except reporting the state of 
the flight to you. The information you get is, of necessity, limited but 
adequate. 


ІШ 
БЕЛ 
E| 
=] 
Е 
= 


You are told, at all times, your height above the moon’s surface, 
how much fuel you have left, and the speed with which you are de- 
scending. You have to enter the correct amount of thrust to ensure 
you land gently on the surface. The fuel you have is limited, so you 
must ration it to ensure you have enough left in the last few seconds 
of flight to cushion your impact. A “high-score” feature (lines 370 and 
380) ensures you and your friends return to this program time and 
time again in an effort to get a better “galactic rating” and to create a 
less deep crater. 
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LO REM MOONLANDER 

20 HS=-10000 

то CLS:PRINT3Z4, "HEIGHT: ":PRINT364,"VELOCITY:" 

| (РКІМТӘ1ОО, "FUELS " 

40 де-20-КМО (60) : КЕМ INITIAL VELOCITY 

SO Вет 2ОО+КМО (180) : КЕМ HEIGHT 

60 Сед2ФО+КМО (90) : КЕМ FUEL 

70 SP=CHR$ (252) ФСНЕФ (254) +СНЕ% (254) 

во FOR Р=29152 TO 29183:FO0KE Е, 152: МЕХТ: 20 

90 B=INT(RB):Añ=INT(A):U=INT(C) 

100 PRINT342,USING "ЯНЕ" 2: РЕТМТО 74, USING "HHH"; A 
110 РКІМІӘ106,МШ6ІМб "ЕН": С 

120 PRINTÓ3(QX3S2)420," — ":QzINT(16-B/100) 

150 PRINTS (052) +20, 5% 

190 PRINT3416,"THRUST"; 

зоо TH=INKEY$:IF УА (Т9) =0 AND Тех "0" THEN 200 

210 TsVAL(O$):SD0UND Q,1:PRINT T 

220 IF ТУС THEN Т=о 

230 C=C-T 

240 Bs=RB+ñA+(T-5)/2 

250 А=А+(Т-5)/2 

250 IF C«1 AND B2100 THEN 200 

970 IF ABS(E)£20 AND ABS(A)<15 THEN 420 

2BO IF В>19 THEN 90 

290 IF Cri THEN 310 

300 PRINT3352," YOU HAVE RUN OUT OF FUEL." 

310 PRINT3z84,"YOUR SHIP CRASHED AT"ABS (A) "KPH" 

520 FRINT@416, "CREATING A" INT (ABS (A) X43) 

"METER DEEP CRATER" 

330 SC=100-ABS (A) FOR Ре TO 1 ВТЕР -1:SOUND Р,1:МЕХТ 
340 FOR Р=1 TO 5000: МЕХТ P 

x50 CLS:PRINT@S20, "YOUR GALACTIC RATING IS"SC 

570 IF SC^2HS THEN HS=SC 

тво PRINTƏZS2, "BEST RATING SO FAR IS"HS 

90 PRINT@S84, "PLEASE STAND BY FOR YOUR 

NEXT MISSION" 

400 FOR Pzi TO 1500: МЕХТ Е 

410 GOTO ХО 

420 PRINT3Z84,"YOU HAVE LANDED SAFELY":FRINT 

450 PRINT3416,"WELL DONE, INTREPID CAPTAIN": 

GC-CX2234:GO0TO 540 








|| HYPERWAR 


HYPERWAR is a major space simulation, 
of patrolling a cube-shaped sector of space, which is ten parsecs along 
each side. The enemy is the race known as the Dosznti. There is aie 
one Dosznti ship in this sector, and it is moving slowly through ce 
cube as you play. Although you cannot destroy the ship, you = kill я 
number of individual Dosznti. In fact, the aim of the came is to x 
your "alien kill total" to the highest point possible before your en ds 
banks are exhausted. Although there are many, many more Doeznti в 
this sector than there are humans, the aliens are notoriously Ead 


shots, so your chance of wipin | 
4: | ng out a lot before yo атана 
nated is rather high. e your mission is termi- 


ag 
- - 


which puts you іп charge 





You can only fire at the Dosznti when you are within three units 


of their position. Attempting to fire when they are out of range leads 
only to the crew response “The Dosznti ship is not within range, sir.” 


You have a limited amount of energy, and each successful hit by 


an alien craft diminishes your energy supply. 


I will not explain the game in any more detail, because to do so 


would diminish the enjoyment you'll get from playing it. The “be- 





| | u should 
avi f space” does not change from game to game, so yo 
гэрб ти to learn the tricks of space warfare after the first o 
leading to higher and higher scores as you continue to play it. Ihe 
game tends to explain the rules to you as you play, and the screen 


display has been organized to make it as clear as possible what is 


oing on. | e" 
: "This program will enable you to turn your computer console into 
one within your space ship, as you set out to rid the 10 parsec cube of 


the menace of the Dosznti mothership: 


19 REM HYPERMWAR 
20 HS=0 
хо GOSUE 1410 
до GOSUB 1150 
во IF 1<0 THEN 670 
50 GOSUB 1660 
70 LzsL-.25 

о ТізТІ-і 1 
"d ERINI "WHAT IS YOUR ORDER; CAFTAIN? 
100 PRINT" N, 8, E, W" 

е PRINT " — АСОМАМСЕ), К(ЕТКЕАТ)" 
120 PRINT " H(YPERSFACE) " 

{зо PRINT " LASER)" 

140 INPUT Z$ 

150 IF Z$-"N" THEN Х=Х-1 

150 IF Z$2"S" THEN X=X+1 

170 IF 7%="Е" THEN Y=Y+1 

180 IF Z$="W" THEN YsY-1 

190 IF 7%="б" THEN Z=Z-1 

and IF Z$-"R" THEN Z=Z+1 

510 IF Z$="L" THEN GOSUE 490 

220 IF Z$s"H" THEN GOSUB 1520 

a30 IF Х<1 THEN X=1 

240 IF Ү<1 THEN Үкі 

oso IF Z£i THEN 251 

260 IF X210 THEN X=10 

70 IF Y210 THEN Ү=1© 

меу IF 2310 THEN 210 

290 GOSUR 890 dn 

оо IE RND(IO)4£7 THEN 46 

318 PEINE ТИТАН 
тоо PRINT "XDEEP SPACE SCANNERS READ: Ж 
zzo PRINT "X МБ -"&-X; TAB(260 реж" 


PRINT "Ж Ей -"BH-Ys ТАВ (26) а "x" 

FRINT "x A/R -"C-Zs ТаВ (26) а "x" 

PRINT CORO OK " 
A=A+RND (4) -2 

H=E-+RND (4) -3 

C=C+RND (4) —2 

IF 8<1 THEN ñ=1 

IF 4210 THEN A=10 

IF Bei THEN Еші 

IF B210 THEN В210 

IF C41 THEN С-і 

IF С>10 THEN C=10 

GOSUB 1650 

GOTO 4o 

REM ЖЖЖЖЖЖЖЖЖЖЖЖ 

REM LASER OFTION 

LzL-.75 

GOSUB 1620 

IF ABS(A-X)»3 OR ABS (B-Y) + 5 OR ABS(C-Z)p3 

THEN 1680 

PRINT "LASERS ARMED AND READY, SIR" 

GOSUB 1650 

IF КМр (10) #5 THEN 590 

FRINT "LASERS FIRE WAS UNSUCESSFUL,", "CAFTAIN" 
GOTO 650 

FRINT "YOU DAMAGED THE DOZNTI SHIF,", "CAPTAIN" 
FOR J=1 TO 30 

FOR H=1 TO 3O0-J/2:PRINT " "::NEXT H 

PRINT "WELL DONE!'!"; 

NEXT J 

T=T+RND (1000) +784 

GOTO 1620 

REM OUT OF ENERGY 

GOSUB 1620 

FRINT "THIS IS SHIP'S MASTER CONTROL" 

GOÜSUEH 1650 

IF (<=0 THEN PRINT "ENERGY RESERVES DEPLETED" 
IF Tl=0 THEN PRINT "YOU HAVE STAYED IN SPACE 

TOG LONG" 

PRINT:PRINT "YOU DEFEATED"T"DOSZNTI":GOSUB 1650 
PRINT "LIFE SUPPORT SYSTEMS FADING..." 
GOSUB 1650 
PRINT " FADING..." 
GOSUB 1650 











960 


havior FADING..." 


find 
le WAS "ТТЕ T2HS THEN HS=T 
BEST 50 FAR"HS:GOSUB 1650 
зтамр BY FOR YOUR NEXT MISSION" 
SUE 1650: СОТО 30 
қ 'ЖЖЖЖЖЖЖЖЖЖЖЖЖ 
E COLLIDED WITH THE","DOSZNTI SHIF'' 
GOTO 690 
REM DOSZNTI КЕРОКТ 
ТЕ ARS (A-X) =SORABS (B-Y) >з0кавв(с-72) 28 OR 
RND (10) >7 THEN RETURN 


cago 
BU 
e HONO 


БОБОВ 1620 


v? TU 
PRINT "CONDITION RED! 


220 CONDITION RED! "š 


SOUND 24,8:S0UND 21,8 
1650: IF КМОС(О)« „29 THEN 1700 
"DOSZNTI АКЕ FIRING AT US, SIR" 
1550 
"CONDITION RED! 


GOSUR 
FRINT 
GOSUB 
PRINT 


Удо 

940 

950 

CONDITION RED!": 
SOUND 24,8:SQUND 21,8 

GOSUB 1650 

ово IF RND(10)27 THEN 1110 

990 PRINT "DOSZNTI FIRE HAS HIT OUR SHIF,", "CAPTAIN" 

1000 DAsRND(?)-1 


970 


1010 GOSUB 16250 
1020 PRINT "MASTER CONTROL REFORTS DAMAGE" 


PRINT "RATING OF"DA"TO THE 
DA=2 THEN PRINT "FOREWARD SECTION, SIR" 
DAS2 THEN PRINT "CREW SECTION, CAPTAIN" 


1050 
1040 IF 
1050 IF 


1060 IF DASS AND DAC? THEN PRINT, "MAIN DRIVE, SIR" 
1070 IF БА>? THEN PRINT "POWER RESERVE CHAMBER" 
1080 LzL-Dn^ 
120970 GOTO I620 
1110 GOSUB 1650 
CAPTAIN" 


1120 PRINT "THE DOSZNTI FIRE MISSED OUR SHIF, 
1150 GOTO 1650 
1140 REM ЖЖЖЖЖЖЖЖЖЖЖЖ Ж 
1150 REM STATUS REFORT 
1160 CLS | | 
1170 PRINT "ЖИКА" 
1180 PRINT:PRINT "STATUS REPORT FROM": 

PRINT "MASTER CONTROL: " 


216 
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1190 GOSUB 1650 
1200 PRINT "ENERGY IN MAIN AND À | © 

poder 3 AUX IL. Кен 

1205 6050868 1650 ПОЩА қ ы 
1210 IF Las THEN FRINT!F RINT "WARNING. . a ENERGY LEVEL " 
1215 IF Les THEN PRINT "DANGEROUSLY LOW!" 

1220 PRINT "STARDATE TIMER IEADS"TI 

1230 IFTISSTHENFRINT"!'''''Q'WARNING-MISSION 

vu E ТИЕМ нани: о E LEA E 
| “эг AE ТЕ 

1250 FRINT ЖЖЖЖЖЖЖЖЖЖЖЖЖЖКЖЖЖЖЖЖЖЖЖЖЖЖЖжже" 


1260 IF Т>О THEN PRINT:PRINT "DOSZNTI 
DESTRUCTION TALLY"T 
mp TELLS | | 
1270 PRINT .P23SHIPS GALACTIC CO-ORDINATES ВКЕ"Х:у:7? 
£8» PRINT "“>>>0087МТІ MOTHERSHIP LOCATED Атедв e 
1290 PRINT:PRINT "THE DOSZNTI 15 +. | е 
1500 IF А<>Х OR B<>Y THEN PRINT "ТО THE". 
1310 IF А<Х THEN PRINT " NORTH": ` i 
1320 IF A>X THEN PRINT " SOUTH": 
1350 IF B>Y THEN PRINT " EAST"; 
1340 IF BY THEN PRINT " WEST"; 
1550 IF Се? THEN PRINT " OF YOUR SHIP, SIR" 
1360 IF C»Z THEN PRINT " BEHIND US, CAPTAIN" 


— at THEN PRINT " IN FRONT OF US, SIR" 
380 PRINT GGG OOOO Ex Eoo" 
т. ure Ж... ЖЖЖ ЖҰАХХЖ ЖҰЖ ЖЖ 


1400 REM ЖЖЖЖЖЖЖЖЖЖ 

1410 REM INITIALISE 

1420 CLS 

1440 LzXSXRND (ХО) s T=Q: TI=5O 

1450 а=6нмр (10) | | 

1460 E-RND (10) | 

1470 C=RND(10) | || 

1480 X=RND(10) | 

1490 У+ВМО (10) | 

1500 Z=RND (10) 

1510 RETURN 

1520 REM HYFERSPACE OFTION 

1550 ХЕКМО (10) | 

1540 Y=RND (10) | 

1550 ФЕВМО (10) | | 

1550 FOR 1-1 TO 40 | 

1570 PRINT TAB(J); "ku; РЕТМТ | 
| 


















1580 FOR H=1 TO J:NEXT H 
1590 NEXT J 

1600 CLS Р 
1510 RETUFN m 
1620 FOR Рч1 TO 1000: NEXT F 
1520 CLS 

1640 GOTO 1660 | МЕ 
1650 FOR P=1 ТО 1000: МЕХТ F 
1660 РКІМТЕРКІМТ 
1670 RETURN 


1680 PRINT "THE DOSZNTI SHIF IS NOT TW 
1680 PRINT ла RANGE, SIR 
1690 GOTO 1650 . ummy. 
xum d " x , за ГТ г Шә I ION AMBER а m 22 
1700 GOSUB 1620: PRINT "CONDIT SOUND 24,8:60ТО 1650 
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Brain Games 


I guess 90% of all games could, without stretching the definition too 
much, be called “brain games." After all, they demand a certain 
amount of brain-power and application from you to play. 

However, the programs in this section under the heading of 


"brain games" are here because they demand a little more intellectual 
effort than several of the other games in the book. 


Here you'll have to unlock a twisted cube in CUBIC, will settle 
down to a game or two of MUMBLE MARBLE (also known as “soli- 
taire” and named as it is here because the game in “real life” uses 
marbles on a board), and will have to work under the pressure of a 
relentless clock to locate some atoms within a CYCLOTRON. 

If your brain still has any power left after all that, 
tempt a task which may appear impossible in FLIPPER a 


an algorithm to solve the SWITCHEROO problem in the 
ber of moves. 


you can at- 
nd work out 
fewest num- 


Ал ү. 











|| IDAHO STARS 


IDAHO STARS are stars with a special property— numbers placed 
on the crossover points of the lines forming them Will, when added 
together, produce the same total, no matter which line of numbers is 
chosen. Аа». 


Неге, for example, is опе such маг МИЊА, 






үү!) 


е total. In _ 


т iz Seal а ‚+ 
"ызы War: 25 


Аѕ уоц сап see, each line оп the star sums to the sam 





this program, the computer generates an IDAHO STAR, leaving two 
or three of the numbers as zeroes for you to work out as quickly as 
you can: 


10 
х0) 
a 
qo 
uu 
SC) 
ға 
go 


This is the listing to produce your own IDAHO STARS: 


КЕМ IDAHO STARS 
GOSUB 480:REM SET ШР STAR 
GOSUR 240: КЕМ PRINT STAR 
GOSUE 70: КЕМ ASK FOR GUESS 
GOTO Хо 
КЕМ ROOK Ok 
REM ASK FOR GUESS 
IF SC>O AND SCziO THEN FRINT 
“YOU HAVE"SC"RIGHT SO FAR" 


85 IF NOT (5С>0 AND 5С<10) THEN PRINT 
90 GO=GO+1 

100 PRINT "THIS IS GO NUMBER" ВО 

110 PRINT "ENTER ANY NUMBER You" 

120 INFUT "THINK IS FART OF THE STAR"; G 
150 SCO 





221 





140 
150 
140 
170 
180 
190 
200 
210 
220 
250 


255 


250 
260 
270 
280 
290 
700 
510 
520 
330 
540 
aug 
A60 
570 
580 
590 
400 
420 
450 
440 
460 
470 
480 
490 
BOO 
310 
220 
550 
540) 
Ej 
360 
570 
E80 
590) 
222 


FOR 1ші TO 10 

ТЕ G=A(J) THEN B(J)=ñ(J) 

IE BJ)Z20 THEN SU=SU+1 

NEXT J 

FOR Реј TO 1000:NEXT Р 

ТЕ 8С<10 THEN RETURN 

REM ЖЖЖЖЖЖЖЖЖАЖЖЖЖЖЖЖЖЖЖЖЖЖ 

GOSUR 540 

PRINT "YES, YOU'VE SOLVED IT! " 
PRINT "AND IT ONLY TOOK"GO"GOES..." 
ТЕ 60410 THEN GOSUB 800 

PRINT "PRESS 'Y' IF YOU'D LIKE ТО" 
PRINT "TRY ANOTHER STAR OF IDAHO, 
PRINT "PRESS ^N? TO ӨТОР........." 
Adie: INKEY $ 

IE де» "М" AND аве» "Y" THEN 280 
IF дфе"у" THEN RUN 

PRINT:PRINT "Ok, THANKS FOR PLAYING" 
END 

REM ЖЖЖЖЖЖЖЖЖЖ 

REM PRINT STAR 

PRINT СНК (28) ; 

PRINT ТАВ(110:В(1) 

PRINT: PRINT 

PRINT TAB(2);" "yB(2) g" "В СЗ) р" твоја 
PRINT 

PRINT TAB(8):B(6)y" — "iBOD 

PRINT TAB(11):B(B) 

PRINT 

PRINT TAB(5):;B(9);" "SECLO) 
RETURN 

REM ЖЖЖЖЖЖЖЖЖЖЖ 

REM SET UF STAR 

CLS 

DIM А(10),В(10) 

б0=0: SC=O 

А+КМО (9) 

BzRND (9) 

C=RND (9) 

D=RND (9) 

E=RND (9) 

IF A=B OR A&C OR а=) ОК а=Е THEN 550 
IF Вес OR B=D OR B=E THEN 550 

IF Сер ОК С-Е THEN 550 


600 IF D=E THEN 556 
610 UD аа да 
620 А(1) =x 
630 AC2)=X-R+Ü+D 
540 ACE) 6E 
650 A(4) =д+р 
560 A(5)=X-—-B-Ü+E 
470 асай 
680 A(7)-654C 
690 А(8)=4+В 
700 A(G)-X-2XB«-2XDAE 
710 А(10) #Х-2Жв-С+рч2же 

720 FOR 1-1 TO 1O 

730 B(GD-AQD 

740 IF А(Ј)=0 THEN R 

740 ip AU > THEN RUN 

760 B(RND (10) ) =O 

770 B(GND(CGO))sO 

780 B(RND(10))=0 


790 RETURN 
800 FOR TU=1 TO 9:READ FR,DU: 
810 DATA 16,3,18,2,20,3, 20, 1, 

< ' 


SOUND FR, 00: МЕХТ: RETURN 


2,18,1,2 
r) ғә En А E 
ң ң 291,20, 2,21,5,20,3 
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THIS IS GUESS NUMBER 1 
VZ300 IDAHO SQUARES 
YOU HAVE 5 RIGHT шк 


act 


ENTER YOUR GUESS? 25 


утхоо IDAHO SQUARES 
THIS IS GUESS NUMBER 4 


-9 14 
YOU HAVE 7 RIGHT 


& Q 
са -і ENTER YOUR GUESS? 2 


гу 


THIS IS GUESS NUMBER 2 E 
ЈЕ | VZ300 IDAHO SQUARES 


YOU HAVE 5 RIGHT 5. 
a| 13 -9 14 


ENTER YOUR GUESS? Š 


музоо IDAHO SQUARES 
С) | 

| THIS IS GUESS NUMBER 5 
4 YOU HAVE 7 RIGHT 

қ ENTER YOUR GUESS? -2 


THIS IS GUESS NUMBER . 
YOU HAVE 6 RIGHT 


ENTER YOUR GUESS? 15 





м2500 IDAHO SQUARES 


THIS IS GUESS NUMBER 6 
YOU HAVE 8 RIGHT 


ENTER YOUR GUESS? 21 


у725о0 IDAHO SQUARES 


YOU'VE SOLVED IT 
IN JUST 6 GUESSES! 


As you can see, you simply enter any number which you think 
id, and the computer checks to see if your 


may make up part of the gr | 
М БАУ the missing numbers. If your guess 15 cor- 


number is one, or more, of ; | ч 
rect, the relevant zero (ог zeroes) іп (һе grid changes magically into 


the number you've entered. A tally is kept of the number of guesses it 
has taken you to solve it. 
Here's the listing to produce your very own IDAHO SQUARES. 
You can change the nines in lines 250 to 280 to a lower digit for 
squares which are easier to solve, and to a higher one for squares 


which are more difficult. 
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КЕМ 92500 IDAHO SQUARES 
GOSUB 230:REM INITIALISE 


) J=J+1 


CLS:PRINT:PRINT 
PRINT "VZ3OO І таи, 
PRI 00 IDAHO SQUARES": РЕТМТ:РЕТМТ ТАВ (З); 
FOR Z=1 TO 9 
PRINT B(Z)g" +; 

IF 3KINT(Z/3)*Z THEN PRINT:PR: 

: JL EPRINT: FRI %)ч 
IF В(2)-А(2) THEN М=М+1 — MN 
NEXT Z 

PRINT 

IF M=? THEN PRINT "YOU'VE SOLVED IT IN JUST" 


J IF M=9 THEN PRINT " 1ф4-1;" GUESSES":END 


PRINT:PRINT "THIS IS GUESS 
RI NUMBER" ; J 
PRINT:PRINT "YOU НАМЕ" М; RIGHT":PRINT 
INPUT"ENTER YOUR GUESS"; X 

FOR 2-і TO 9 

IF B(Z) 0 AND A(Z)=X THEN B(7Z)= 

қажы HEN B(Z)=X 

GOTO хо 

ЕМІ) 

REM CGO OGIO GOK 

REM INITIALISE 

DIM à(9),B(9) 

A=RND (9) 

B=RND (9) 

C=RND (9) 

D=RND (9) | 

IF A=B ОК БеС OR A=C OR A=D OR Бер OR СЕО 

THEN 260 


AC1)=A+B 

A C2) =A= (B+C) 
А (5) =A+C 

А (4) =4- +С 
ACS) =A 

ACS) ха+в-с 
AC7)=A-C 

ñ (8) <а+в+с 
ñ (9 y zà-E 











ІҢ | | 230 
ШІП! 


3590 
400 
410 
420 
О 
e 40 
490 
460 
470 


ҒЫН wi 
E (GQ) =A С) 
NEXT 0 
B CA) =O 
B (B) =O 
Bob pem 
B (D) =Q 


dup 


RE TURN 


TÜ 


42 


40 


9 
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20 


50 
40 
50 
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во 
90 


|] EXECUTIONER 


As you can tell, this game is a computer variation of the old pencil- 
and-paper game, “hangman.” In this game, the computer chooses a 
word from its store (held in the DATA statements from 500 to 740) 
and then challenges you to guess it. gy 


P. 





The number of guesses you'll get is related to the length of the 
word (see lines 120 and 170). 

This listing will enable you to risk your neck in the noble cause of 
increasing your vocabulary: 


REM EXECUTIONER 

CL S: RESTORE | 

Y=: Lps" "s REM 28 SPACES 
PRINT"FRESS ТЕ" WHEN YOU'RE READY" | 
РАЈМТ“ТО FACE THE EXECUTIONER..." 

IF INKEY$<>"E" THEN 60 

РОК 651 TO RND(125) 

READ ñ$ 


100 NEXT G 
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110 GOSUB 480 | 
120 ма ЕМ) : DIM вм), DN) „05 (26) 
150 FOR б=1 TO N 
140 RBR(0)y=ASCOMID$ (АФ, 6, 1) ) 
150 0(6) «В (6) 
160 NEXT Ü 
170 Q@=INT(N+N/2+, 5) 
190 CLO:PRINT:PRINT"YQU HAVE ТО GUESS THE EXECUTION-" 
190 PRINT"ER?^S WORD IN JUST"G" GUESSES" 
200 GOSUB 4во:6060в 480: GOSUB 480: CLS 
240 FOR J=i TO О:Узу+1 
220 БОБОВ 400 
2X0 IF H=N THEN 340 
зао PRINT: FERINT:FRINT Q+1-J "CHANCES LEFT... "sO$=INKEYS 
omo PRINT:PRINT"ENTER YOUR NEXT GUESS? "š 
cut C$-INKEYS$:IF Сфе"" THEN 255 ELSE PRINT C$: 
FOR 12] TO 100: NEXT 
260 F=ñSC (CS) 
265 OF (F-64) = СНА (Е) 
270 FOR б-і TO N 
уво IF D(G)=F THEN 0(6) -О: 477—1 
290 NEXT G:NEXT J 
100 GOSUB 480 
510 GOSUB 400 
20 PRINT:PRINT:ERINT"SO SORRY, ВОТ YOU GOTTA со NOW! ' 
· SOUND 1,8 
что PRINT"THE EXECUTIONER*S WORD WA "+ АФГ 
:GOSUB 480: END 
x40 PRINT:PRINT"WHEW' YOU* VE STAVED OFF" 
450 PRINT"EXECUTION FOR ANOTHER DAY." 
чос PRINT"YOU GOT IT IN"Y-1"GUESSES" 
чуо PRINT:PRINT"THE EXECUTIONER?S WORD WAS":FRINTA$ 
475 FORI=1 TO 20: ЕОК К=1 ТО 200: МЕХТ: СОСОК, 1: 
FOR K=1 TO 200: МЕХТ 
376 COLOR, Os NEXT 
=90 PRINT"DO YOU WANT ANOTHER GO?" 
395 GOSUB 495:1IF АФ<>"М" AND AS<>"Y" THEN 385 
=90 IF A$z"N"THEN END ELSE RUN 
400 нео: РКІМТ CHRS (28) 
405 FOR V=i ТО 26: PRINT3V-2,05 (У) s NEXT V: PRINT: PRINT 
410 FOR Есі TO М 
420 IF В(Е) =р (Е) THEN PRINT'"-"; 
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430 IF B(E)<¢>D(E) THEN PRIN 
130 ip Bu ) THEN PRINT СНЕФ(В(Е)) Нені 
450 PRINT:PRINT:IF НЕМ THEN PRINT"YOU НАУЕЧН 
460 PRINT "LETTERS Б n 
470 RETURN | к 
480 FOR О=1 ТО 500: МЕХТ 

TaT ! | Jel 
490 RETURN Ts 
= A= INKEY $s A$=INKEY$: RETURN 
500 DATA MERIDIAN", "MERIT", "MERMAID", "MERRIMENT" 

; RSEER" , "OXIDANT", "OXYGEN", "FALPAELE" 


a H php “L H " 
220 DATA"PANDEMONIUM", "PANEGYRIC", "PARADO SSL n on 
JS "£I ES по nod 3 "FHEASAN' PLU == H 
30 DATA"RUMPUS , "RUMMAGE", "SACRAMENT", "SABRE" ' к 
= ті "с = р |" s "SCHEMATIC ч "та e 
540 DATA"SEDIMENT","SEXAGENARIAN","TEMPERATE*" "О 
EE р" РАТУ ТАТИЋ "ЛЕСЕВС ыты. и 
550 DATA"GYPSY", RHAPSODY", “SCALENE” , “SATELLITEN CAR 
560 DATA"HELICOPTER", "CASSEROLE", "ILLUSTRATES ALLOH" 
М ana s "БУМРАТНУ" , "MOUSE" 
“70 DATA REFRIGERATE", "MAMMOTH", "KALEIDOSCOPE" 
380 DATA" INSATIABLE", "SILHOUETTE", "RoNpages ' "ОАТ" 
: f ‚ BONUS" | "DECIMAL " 
THISTLE", "SABOTAGE" | 
SOC "P X n үрт : CH "COURT пов h 
ОО DATA DEBUTANTE", "DECADENCE", "KETCHUP" ^ s TRY 
610 1 mee | "KINDERGARTEN" , " METRE" 
310 DATA SUPERCAL IFRAGILISTICEXPIALIDOCIOUS" — 
a 

620 DATA"DLYMPIC", "OMNIBUS", "OMNIPOTENT" ^ ' "QUSE" 
„а MAGNANIMOUS" , "ZEALQUS" 
XEROX" " £ ХУСОРНОМЕ " 

640 "Fatt: CIE eS ee ee "QUINCE", " ү 
Ó "FATIGUE", FALSETTO", "EQUIVALENT", "ENZYME" YUMMY 
650 DATA"QUEABY","IMBECILE","BIENNIAL" | ? ARTS 

ПАТАНЦ њи paa | " "ACCOMFL ISHMENT " H | xui 

660 DA ГА KUNGFU” 4 "JAVELIN", "БЕМАМРМАМТ " | TONGUE 
s "ООМТАК", "JERKIN", "QUAD" 
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290 DATA"DEAFEN", "THEORY", 


630 DATA" ZOOLOGY", "ZILLION" 











да " что K","MARZIFAN" " 
670 DATA" IEBRA"," TOMPPAWR , , "PULVERIZE","FACSIMILE' 


680 DATA"HYPOCHONDRIAC", "RECRUIT" 


о CUBIST 





| "CONJURE", "STEWARDESS" , "DEBUT" This is a two-dimensional version of the colored cube puzzle which 
| , | ут zept th гіа from Hungary. 
| ад | a "ú" "THEOLOGY swept the wor gary 
| 690 DATA"LIZARD","SCHOÜLASTIC", REGRET , "GIBBERISH" The “cube” starts off looking like this: 
| | E - 
НШІ Ей " "WINTERGREEN" , "YELLOW" 
ПІШІП 700 DATA"VEGETABLE", zu ба Yan TY" 1122 
| ||| Р Kies eo pie тен T122 
ІН || ‚дї IE", "SCHEDULED", " RHEUMATIS Moe em 3344 
||| 710 DATA"FRAIKIE", , "MOSQUITO", "DOG » "ТАВ 3344 
ТШ " "JET" "ӘМІР" "QUIZ","QUACK" 
ҮШІ | сабыны аны. | ' "AXE", "BIB", "FIB", "НЕТ" After some manipulation by the computer, it will look something 
ШІП! | | | " nop Ы АЕ ТЕК 
| || | 730 DATA"YACHT" s "VERSUS ч 'PRECI j : "WOMANHOOD" , "Wag" 1212 
ІШ 740 DATA"YOU", "WOODWIND", "ACACIA" | 3332 
TM | 3141 
"M | 4244 
||| | Your job is to get it back into its original state in as few moves as 
m 
||| 


possible. Тһе numbers оп the cube rotate in 
| in a clockwise direction. This means that 


groups of four, spinning 
1 2 

3 4 
when rotated will look like this: 
31 
42 


You enter а number in order to 
rotate the elements of the cube. 


Емін 


Тһе key to move is ав follows: 


өзг E 
Bee 


| ОЗА 
" 6.47 8 
P 10 11 12 
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This is the listing for CUBIST: 


то DIM ñ(4),B(16) 
49 CLS 

30 B=1:F= 

бо FOR D=1 TO 4 

70 C=O 

go IF Есі THEN C=1 
90 IF B=3 THEN Сей 
100 IF B=?9 THEN C=. 
110 IF E-11 THEN С=4 
120 B(B)=C 

1520 HB(B+1)=C 

140 ВЕЧА) = 

150 В(В+9) “С 

160 (=O 

170 IF В=1 THEN С=2 
180 IF B=3 THEN C=6 
190 IF B=9 THEN C=2 
200 ВеВ+С 

210 МЕХТ 0 

220 GOSUB 410 

230 PRINT: PRINT 


240 IF Е<11 THEN PRINT@224, "TWISTING..." 


250 F=F+1 

260 FOR Ре1 TO SOO:NEXT F 
270 IF Е<11 THEN X=RND(12) 
280 IF F»10 THEN GOSUB 590 
290 IF Х<2 OR Х=5 OR X=9 OR 
500 ACL) =B(X) 

510 ACB) #В(Х+4) 

520 AC3)=B(X+3) 

330 A(4)=B(X-1) 

540 ВХ) =AC4) 

350 ВОХ+4) =А(1) 

BOO ВОХ+5) =А (2) 

570 в(Х-1) =А (5) 

380 GOSUB 410 

590 E=F+1 

400 GOTO 270 

410 PRINT СНКЪ (28) 

420 PRINT: PRINT 

450 FOR B=1 TO 16 


X>12 THEN 270 


440 FRINT BCR): 

450 IF B/4=INT(B/4) THEN PRINT 

460 NEXT B 

470 ЕКТМТ: РКТМТ 

480 IF F< lO THEN РКІМТӘО," TWIST NUMBER" EF 

490 IF F>10 THEN PRINT3O," YOUR CUBIC NUMBER"F--10 

JUO ДЕ Feil THEN RETURN 

310 РО 

320 IF B(1)=1 AND В(2)=1 AND Е(С5)ч2 AND B(4)=2 

THEN FzF-1 

950 IF B(5)=1 AND B(6)-1 AND B(7)=2 AND В(8) +2 

dus _ | THEN Р=Р+1 

40 IF H(9)-3 AND BH(10)-3 AND B(11)=4 AND H(12)z4 
THEN Е Р+1 


290 IF В(153-5 AND B(14)=Z AND B(15)=4 AND B(14)=4 


А THEN РеР+1 
260 IF Pod THEN RETURN 
370 PRINT3Z84,"YOU SOLVED IT IN JUST"F-1O"TWISTS" 
200 PRINT "WELL DONE, CUBIST! "sEND 

390 7%Ф-ІМЕЕҰФ: Z$=INKEVS 

500 РКІМТӘЗ2О, "ENTER YOUR СНОІСЕ (1 - 9)" 

610 LS$zINIKEY$S$:X-VAL (L. $) 

620 IF Х<1 OR X59 THEN 410 

050 SOUND 31,1:IF X4 THEN X=X+1: RETURN 

O40 IF X«7 THEN X#X+2: RETURN 

ODO XcX-4X: RETURN 

660) RETURN 
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MUMBLE MARBLE | 


| 

| | |“ Our next brain game is а computer version of Ше game you may | Т 
| ІІІ! 
| 
| 
j 





| | | | | know as "solitaire," in which you have to move marbles around a ||| 
| | | |. | | board. At the start of the game only the center hole is empty. You сап ||| | 
| | M jump over marbles into empty holes, and you remove the marble so | ІІ" | 
BI |; | : ў : Н : : | EM 
||| | | || | jumped over. The idea of the game is to end up with just one marble ||| 
||| ШЫ | in the center hole. P алыбы ы, = = ПЕ 
! | | E ац Ва | | x 
| ||| M j | | | " { 
an П 
||| | " | 
a 
! | 




















LE | 
"На || 
ҮЕ y | |. 
nn | ||| ||| 
| ІШІП 
|| | ІШ 4 
| | | Із | | 
| | | ІШ: 
ШЕШІ | HB 1 
| n || | | | | f 
+ IH nm š 
jj: [ | Í | ІШ 
ГУНИ | | | 
TEMO | lE 
MEI M ull 
| ШІ | || | 
Hi КТ] | | |. 
ne | | | | || | 
үй | Il | ! 
ЕН Ay ШІ! 
ТЕЗІ i ; 4 
2 1. ||| ВІВ | | 
р | | f ||| i k 
|| | | ñ 
ІШ! || | | 
ЊЕ || | iu 
| 1 || | КЕ! 
ши"! || 
HEN =) | 
ЕРІН! J | 
ТІ | B А | 
! h ! | | i 
| 1 | m ki 
d | ||| HI Ін 
ии ! | | | | 1 
| | ІН 
1 ШТ | | | 
4 YN. | W! | 
"n IE ||| # | 
a}! | | 1 | 
M | | ПІ 1 
1 | HUU | 
| 


| 

1 | Many stories have been told about the origin of this game. The Hh 

||| | most interesting of these tales is the опе that says the idea of the | x 

n game was worked out by a prisoner in solitary confinement in the 
li || | Bastille, who devised it as a way to relieve the monotony of his im- 
ШІ и | prisonment. Whether that story is true ог not, there is no doubt that 
| the game can become quite addictive, as you try to devise a foolproof | 
| way to solve it. | x 
| | 
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Here's what the MUMBLE MARBLE display looks like at the 


start of the game: 


1234567 
000 1 
000 2 

50000 0 0. 3 

Об 0.0 0 4 

0000000 5 
000 6 
О @ Q T 


A few moves later it could look like this: 


1 2.334 5 5.T 
0 0.0 1 
0 * o 2 
ж 0 00:00 3 
0-0- O РО D- y 
0 0 00 00 9:75 
* O O 6 
* 00 T 


Here's the listing, so you can set out to solve the problem your- 


self: 


10 REM MUMBLE MARBLE 
20 GOSUB 400 

zo GOSUB 250 я 

40 REM ACCEFT MOVE m Tf 
во PRINT3416,"WHICH MARBLE DO YOU WANT ТО MOVE"; 
50 PRINT3448,""s: INPUT A 


70 
ao 

9o 

100 
110 
Lew 
130 
140 
240 


F А=99 THEN GOTO 240 | 
si А<11 OR А277 THEN GOTO 60 
IF А‹А)<>79 THEN GOTO 60 
PRINT3448,a"TO WHERE"; 
md OR В>77 THEN GOTO LOO 
ТЕ ACB) ЗЕ THEN GOTO 100 | 

А (А+В) /2) -Еза (А) ЕЕ: а (8) =79 










150 
160 
170 
180 
190 
оо 
210 


220 


250 


240 
Zo 
260 
270 
280 
290 
300 
S10 
as 
220 


340 
ЕО 
370 
390 
4oo 
410 
4:30 
440 
490 
460 


MOVE: MOVE 1 
COUNT=0 
FOR F=11 TO 75 
IF А(Е) =79 THEN COUNT=COUNT+1 
NEXT F 
GOSUB 250 
PRINT "THERE ARE"; COUNT; "MARBLES ": 
PRINT "ÜN THE BOARD" 
IF СООМТ<>1 THEN GOTO 40 
IFA(44) -79THENPRINT"YOU DID IT, IN 
JUST"; MOVE; "MOVES! — ":END 
PRINT "THE GAME IS OVER AND YOU'VE FAILED'"iEND 
REM PRINT QUT 
PRINTS 448, L$: PRINTCHRS (28) ; 
PRINT "ENTER SIDE CO-ORDINATE FIRST" 
PRINT ТАВ (5) ; "ENTER 99 TO CONCEDE” 
PRINT " 1234567" 
PRINT TAE CS) 
FOR D=11 TO 75 
Tz10x (INT (D/10)) 
IF D-T28 THEN D=D+2:FRINT T/1O:PRINT 


TAR (5) ::GOTO 550 
PRINT CHR$(A(D));" "; 


NEXT D:PRINT " 7" 
PRINT "MOVES SO FAR: "s; MOVE 
RETURN 

REM INITIALISE 


CLS:DIM аксе?) 
E42 | ф=" 

FOR D=11 ТО 75 
T=1O£(INT(D/10)) 

IF D-T=8 THEN D=D+% 


470 READ ACD) 
480 NEXT D 


490 
200 
EOD 
340 
Jugo 
360 
270 
380 
FQ) 


MOVE=c 
RETURN 
DATA зе 32. 79, 79,79, 32. 32 


рата 52,52,79,79,79,52,52 
рата 79,79,79,79,79,79,79 
рата 79,79,79,42,79,79,79 
рата 79,79,79,79,79,79,79 
рата 32,32,79.79,79,32,32 
DATA 52,52,79,79,79 
























































| Т 
! || 
ШІ ІШЕ | 
| | 
ШІ Іп CYCLOTRON, you fire atoms into the machine from the top, by 

ЕШ specifying а number, апа you һауе to try and locate particles of anti- 

M | matter hidden within the machine from the behavior of the atom. 


m ТТ: = P! 











x LUE 
|| е 5 If the atom hits a particle of antimatter it will either be absorbed, 

n. or deflected to the right or left. An atom may be affected by more 
| | | than опе particle of antimatter, which makes (һе resolution of (һе 
m | problem even more difficult. 

| |! There аге always three particles of antimatter in the machine, 
| | || || | although they could well all be іп the same number cyclotron. You 
||| ||| һауе an extremely limited number of goes in order to locate the anti- 
| || | | E matter. At each go, you can either enter Ше number where you want 
ү a to enter an atom, or be reckless and enter 8, which gives you a chance 
| | Ў Ж to guess the location of the antimatter particles. 

| | || | | 





And here's the listing for your very own cyclotron: 


Lo REM CYCLOTRON 

^0 CLS | | 

ХО N=0:H8=9:DIM B(7),0(3),W(3) 

во REM PLACE АМТІМАТТЕК 

90 FOR А=1 TO 3 

100 ВКА) SRND (7) 

110 NEXT A 

120 FOR Н= TO 1 STEP -1 

iso CLS > a = 
(A0 PRINT:iPRINT:PRINT"YOU HAVE H SECONDS 

150 PRINT"OR 8 IF YOU THINK YOU KON 

170 PRINT"WHERE THE ANTIMATTER 1. 

igo INPUT C Ü 

190 IF С=8 THEN 520 

оос (GÜSUB 450 

10 Del PUT 

mag IF ВО) ес THEN Z350 — —— 

сто IF рез THEN р=р+1:60Т0 220 

до GOÜSUBR 500 | “4 MES 
oso PRINT"THE ATOM EMERGED FROM C:SOUND 31,5 
250 FOR 2-і TO 1000:NEXT 2 

^70 NEXT Н | 

эво PRINT:PRINT:PRINT | m 

oon PRINT"SORRY,TIME 1: | | Е Е 2 
а PRINT:PRINT"THE ANTIMATTER WAS IN":SOUND 6.7 


SOUND 4,8 
710 FOR А=1 ТО 5 
чоо PRINT B(A); 
SEQ NEXT ñ 
740 END a 
350 КЕМ ANTIMATTER ACTS Ed 
150 IF КМО 10) >59 THEN 420 | š | 
<7о IF С=1 THEN Cz2:G0TO 210 B 
290 IF Ст? THEN C=: GOTO 210 | il 
тоо F=RND(2)-1 % | 
400 CzC-*F y 


410 GOTO 210 
CENA | RSORES АТОМ 
420 REM ANTIMATTER ABSORE: f EUIS icd: 
, Т mim 3 ‘ = | ESOREBED " GOUN шыбы. a 
азо PRINT"THE ATOM HAS BEEN А SOUND 50,14 
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440 GOTO 260 

450 ЕКТМТ: РКТМТ: РКТМТ ТАН(2+2Ж0) С 

460 FOR 7=1 TO 5 | 

470 PRINT ТАБ (ё) "- = - ~ = - =" 

480 МЕХТ 7 

490 RETURN 

500 PRINT тАв(З+2жС) {С 

310 RETURN 

520 REM LOCATION ATTEMPT 

u30 PRINT"WHERE DO YOU THINK" 

S40 FRINT"THE ANTIMATTER LIES?" 

S50 INPUT @¢(1),@¢2),Q(3) 

560 FOR T=1 TO S:W(T)=BC(T) МЕХТ Т 

370 © =0 

580 FOR Х=1 TO 3:FOR Y=1 TO 3 

590 IF Q(X)=B(Y) THEN 5Е=5К+-1: В(У) =0: 2 (Хх) =0 

600 NEXT Y,X 

910 GOTO 650 

620 FÜR Е=1 TO 3 

охо ECF) =W CF) 

640 NEXT P 

650 IF SR>2 THEN 700 

660 IF SRO THEN FRINT"YOU LOCATED"SR"CORRECTL Y " 
470 IF SR=O THEN FRINT"YOU ARE COMPLETELY WRONG!” 
680 FOR T=1 TO Z:B(T)=W(T):NEXT T 

690 GOTO 260 

700 PRINT"WELL DONE. YOU LOCATED THE" 

710 PRINT"ANTIMATTER WITH"H" SECONDS" 

720 PRINT "TO SFARE":GOÜSUE 770 

730 IF ө-Н<Н6 THEN НӘшф--Н 

740 PRINT:FRINT"YOUR BEST TIME SO FAR IS"HS 

750 FOR 2-1 TO 1000:МЕХТ 2 
760 БОТО 90 
770 SOUND 21,4:S80UND 16,2:SO0UND 16,1:S0UND 18,4: 

SOUND 16,4 

780 :SO0UND O,1:S0UND 20,4: SOUND 21,4: RETURN 


= == == ---- — 
= = === —— -_ 
— с = co = 5 „= ---- — = = 
kika 2 im use i Mz = s — M — = 
Trima = = = -- ыа 
анна аралый 2 - 
š 


li САО 
| | + уй 
` M 
| А 
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|| FLIPPER 


This intriguing game can provide you with a considerable degree of 
mental stretching. When you run the game, you'll see a mix of X's 
and *’s on a three by three grid. You have to end up with an X in the 
middle, and eight *’s surrounding it. 6, 


ас шалу үсчау сы үл с-з ESC 


—u 


= 


You enter the number of the place you want to hit with your 
flipper. Flipping a corner piece causes those adjoining it to change 
into their opposites (that is an X becomes an *, and an * becomes an 
X). Hitting the middle piece on a side with your flipper causes the two 
on either side of it to change, and hitting the middle piece changes the 
middle pieces on each of the sides. 

The piece you hit always changes in each case. 

Here’s the listing so you can do it yourself: 


10 КЕМ FLIFFER 

“О DIM AC10),F(4):sCLs 

a0 Мш-1з0-42: X==818) s Е-е 

30 FOR C=1 TO 9 

&O АСС) #0) 

7а IF INT(RND (100) /100+. 5) 20 THEN АС) ЕХ 
dO NEXT С 

90 GOSUB 270 

lOO M=M+1 








| 
55% ТІ! 110 МЕО || SWITCHE 
У ||| | 120 FOR С=1 TO 9 4 ROO 
| | 150 IF A(C)=X THEN N=N+1 | 
Т s қ | In SWITCHEROO | 
ІІІ 150 IF Nei AND A(5)=X THEN 550 | ні | , you are present i igi | ТІ 
||| 150 IE M20 THEN PRINT:FRINT"THAT WAS МОУЕ"М in a random order, and you bun to gat hen pr ПН ET || 
Т! 170 PRINT:PRINT"NUMBER OF X IS"N" | | іп as few moves as possible. жені | 
1 190 PRINT:PRINT"WHICH ONE DO YOU WANT TO FLIP?" Хол enter your moves as numbers, and the со “Г 
||| 200 IF INKEY#$<>"" THEN 200 "Switcheroo" using the number you've pa З Жа,” oe | | 
n 210 АФ-ІМКЕҮФ ` m 
D 220 N=VAL (AS): IF МАТ ОК а 210 | Dp 
| 225 IF A(VAL(A$))-88 THEN 21 | Mp 
| 230 P=N:SQUND 51,1 ae 
|| 240 GOSUB 380 50 PRINT:PRINT*PLEASE STAN 
||| 250 GOTO 90 i Asa PLEASE STAND BY..." 
||| 240 END x 0 BN 
Т 270 PRINT CHR% (28) „Кр ыа Q ИН p CR Er 
| mao ТЕ Резо THEN РЕТМТ"УОЏ FLIPPED"P ELSE PRINT | T Вас 129138787" THEN 390 PRESS | 
||| 290 PRINT:PRINT"1 2 S",CHR$(ACDOS" "j СНАФСАС2)) p" 7 x је ШР MEN P om 
1 295 PRINT СНАФ (А СЗ) ) | ns aa | T RTA CE il 
x | 300 PRINT 100 М-1:Х-0 ! 
| 







| 710 PRINT"A4 5 6", СНАФ СА (4) ) р" ";CHRSCA CO) 3 
| " "CHR CACO)) | 110 A$="" | 
120 FOR Т-1 ТО 9 | 


||| | 320 PRINT | | = 
n 530 PRINT"7 8 9",CHR&(ACDO;" "SCHRS (ACE) > § | и qa | 
| | нон, СНКЪ(А (9) ) | | 140 051 ||| 
ІІ! ||| лао RETURN 150 IF MID$(A$,0, 1) :CHRS(L) THEN 130 | 
ӨСІП =50 PRINT:FRINT:PRINT"YOU SOLVED IT IN JUST"M"MOVES? 160 IF (KT THEN 050+1:60170 150 | 
1 


ІШ тво IF A(N)=X THEN RETURN | 180 PRINT As x Il 
ШІ 390 IF Nei THEN F(1)=2:F(2)=4:F (3) #5: Е (4) =10 190 PRINT:SOUND 1,1 | 


Шо доо ТЕ Ме? THEN F(1)=1:F(2)=%sF(3)=10:F (4) #10 | 200 NEXT T M 
E 410 IF Мед THEN Е(1)#2:Е (2) = Е C3) sós F (4) 10 ) 210 RETURN | 
ЛІ 420 IF Nz4 THEN Е(1)жі:Е (2)=7:F (5) #10:Е (49-10 EI : 220 КЕМ PRINT QUT ||| 
ҮШ ато IF МеЗ THEN F(1)=2:;:F (2)=4:F (3) SB1F (4) жө 230 IF ЮИ THEN 240 ELSE CLS | 
||| 440 IF Меб THEN Еі) =: (2)=9:F (4) #10:Е (4) =10 | 240 PRINT:PRINT;PRINT ! 
||| 450 ТЕ Ме? THEN F(1)=4:F (2)=š:F (3)=8:F (4) =10 | 250 PRINT "MOVE NUNBER*H | | || 
ІШ 460 IF М=8 THEN F(1)=72F (2) #9: Е (3)=10:F (4) 210 250 PRINT2107,M | | 
| i 470 ТЕ №9 THEN F(1)=8:F (2) =9:Е (5) з6: Е (4) =10 Е 270 PRINT@256,A$:SOUND 31,1 | ! 
||| 480 FOR б=1 TO 4:Р=0 T 280 PRINT:PRINT*WHICH NUMBER ТО SWITCHEROO?" | | 
||| чоо IF А(Е(6)) =Х THEN F=1 | | 290 IF INKEY$ <)"" THEN 290 || 
||| 510 IF F=1 THEN ACF (6)) #0 5 300 C$=INKEY$ | 
UE 520) IF Его AND ACF(G))=@ THEN А(Е (8) ) =Х r3 $10 REVALIC$) || 








n 530 NEXT © 2 | 


||| Бао A (N) X:RETURN | 245 





— Mi 320 IF КА OR КВ THEN 300 
ES Е 330 =" | 
ІШ 340 FOR T=9 ТО R STEP -1 
"i 350 B$zB$4MIDS (AS, T, 1) 
Ru 360 NEXT T 

mu. 370 A$=LEFT$(A$,R-1)+B$ 

| ІШІ! 380 RETURN | 
B | 390 PRINT: PRINT: PRINT 

| 400 PRINT A$ 
410 PRINT:PRINT:PRINT 
420 PRINT'YOU DID IT, CHAMP!" 
430 PRINT:PRINT"AND IT TOOK JUST"M'HOVES. , . " 
435 IF В=1 THEN НЕМ 
440 IF MCH THEN HEN 
450 PRINT "LOW SCORE-"H 
140 FÜR 1-1 TO 3000: НЕХТ 2 [la a | m 
470 вото 20 4 ||| | OU ШЫ ШИМ | 
P Де уин ӨТТҮ EROR DP UL uc Ез | 
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|| CREATING GAMES 


You may well find, after you’ve been programming for some time, 
that although you’ve got many of the skills you need to write games of 
your own, you're a little short on ideas. If that’s the case, you should 
find this section of the book of interest to you. I'm going to outline a 
number of games which seem to me to be ideal for conversion to 
computer games. "у. 


ННВ Unless you're соп- 
verting a well-known game, such as checkers, when your program will 
be expected to coincide in every respect with the non-computer ver- 
sion, you do not need to ensure that your computer developments of 
these ideas slavishly follows the outlines here. You'll probably find 
that, after a certain degree of development, the game takes off on its 
own, and may well end up in due course bearing little resemblance to 
its “parent.” This is all to the good. 


ТИЛ 1 1 

1 l ИН 

1! Т ||| | | 1 
ЕМ КАЧИ НИЙ ИНН 
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| JGAMES TO ADAPT 


SHUFFLEBOARD: Players slide flat, circular pieces along a board 
toward a triangular “target” which contains painted circles with num- 
bers on them. А piece ending up entirely within the numbered circle 
gives the player the score of that number. There are many possible 
variations of this, including darts-like target games. Once you get a 
shuffleboard program running, you may well find that only cosmetic 
changes are needed to convert it into a ten-pin bowling game. 





MU-TORERE: This game, which originated among the Maoris in 
New Zealand, is played on a board shaped like an eight-pointed star, 
with each point of the star joined to a circle in the middle. This circle 
is called the putahi. The players start with four pieces each, which are 
placed on the outside points, with all of one player's pieces occupying 
points next to each other. The aim of the game, as in the last two 
we've discussed, is to make it impossible for a player to move. You 


can move from one point to an adjacent empty point, or from the 
putahi to any vacant point. The third possible move is from a point to 
the putahi, but this move can only be made if at least one of the 
points. immediately adjacent to the one from which you intend to 
move 1s occupied by an opponent's piece. 





HORSESHOE: Starting with a board like this, with one player's 
pieces at the positions marked А, and one at those marked B, the 
players take it in turns to move along a line to a vacant spot: 


A A 
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Тһе game ends when а player discovers һе ог she (ог it) cannot move. 
Despite its simplicity, this is an interesting game, as you'll discover 
when you play it. 


i is li HORS Е, but uses a larger 
DAMOCLES: This game is like HORSESHOE, | 
board, and three pieces per player. The aim of the game is the same 
as HORSESHOE, and uses this board: 


| 
| 


ВІМСО: This game is usually played with cards marked with num- 
bers, which are crossed off as numbers are drawn at random from a 
pool, the winner being the player who first crosses off five in a row on 
his card, in any direction. It can be greatly simplified for computer 
use, with the computer generating two "cards" at random, using num- 
bers from 0 to 99, and printing them on a five by five grid. The 
computer can then choose numbers at random from 0 to 99, and do 
the crossings off, and look for possible wins. The program can be 
made more interesting to look at by, instead of just generating a ran- 
dom number, including two “dials” with spinning arrows. The first 
dial, the "tens," is marked from zero to nine, and this 1s spun first. 
The second dial is marked the same as the first one, except that it 
represents the “ones.” 










Apa 





ah 1 1 

ва" АА 

LU M 
TT 






NA 


apart 
vp e am 


—— i 





Dice Games 


As I said in the notes regarding the dice games in the dice section 
of this book, you should find dice games relatively easy to program on 
your computer, especially if the computer is not expected to exhibit 
too much intelligence when playing. There are a number of dice 


games which you may wish to try and adapt for computer play, in- 
cluding: 


DROP DEAD: You need five dice for this. The dice are thrown by 
the first player, and any which show two or five are removed. The 
total of the rest is written down, and the dice which fell with a two or 
a five are thrown again. After this throw, the dice landing two and five 
are removed, and the total of the remaining dice is added to the total 
from the first throw. This process continues until there are no dice 
left, at which point that particular player's move ends. It is then 
player two's go, and the same procedure is followed. The winner is 
the player with the biggest total after both have had their throws. You 
can make the game the best of, say, three rounds, or limit the total 


number of throws any player can have per go, regardless of how 
many dice he or she has left. ЕЕЕ». 
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ЕТТІ: You need three dice for this, and a score sheet 
ылыш a row of boxes marked from 1 to 12, and two m one 
` you and the computer. You are aiming to traverse the num- 
= йі б, before your opponent manages to do 50. Each player 
takes it in turn to throw the dice. If the throw contains a one, the 
player's token can be placed in the one square. If the first throw also 
contained a two, the token could be moved into the two. After box 
one, players can either take the pip shown on an individual die for a 
move, or can add together the pips showing to get a desired number, 
A variation of this game (often called EVEREST) is to climb down 
through the numbers, after 1 through 12 has been achieved. The win- 
ner of EVEREST is the first player getting back to base camp on one. 


INDIAN DICE: This game is similar to POKER DICE and 15 played 
with five dice. The aim is simply to get the best possible "poker 
hands." There is no provision for getting additional cards" in one 
deal. You throw the five dice at once, and that is your атой Тһе 
ranking of the hands is ав follows (with six highest апа ones wild): 


° five of a kind 
° four of a kind : 
° full house (three of a kind plus a pair) 





° two patrs 
° one pair 


* highest die 





BIDOU: This game is also similar to POKER DICE, however, you 
aim to get rid of all your chips, rather than win them. The winner of 
the game is, paradoxically, the person who has lost the most rounds. 
You need three dice for this game, and a supply of chips which are 
distributed equally between the two players. A bet is made, and 
matched, before the players take it in turns to throw the three dice. 
The throws are ranked as follows, with “winning throws" coming first: 


211; 221; 421; 666; 555; 4 4; 
333 224 111; з3з61 33533 
2342815 ECG 115 114 1-13 
22 432; 543: 654 


If the combination thrown is not іп the list, the pips are added, with 
the highest total winning. 


BARBOOTH: Also known as BARBUDI, this game is played with 
two dice, and features winning and losing throws. It is suggested you 
start with a bank of 30 chips, and give both players a starting stake of 
15 chips each, charging two chips per player per round. The players 
take it in turns to throw the dice. Winning throws are 3 3; 5 5; 6 5; 
and 6 6. Losing throws are 1 1; 2 2; 2 1and 4 4. If the players both 
get winning throws, the one closest to the start of the list wins (that is, 
3 3 is better than 6 6). If both throw the same winning throw, the 
bank gets the money. If one player throws a combination which is not 
a winning one or a losing one, and the other throws a losing throw, the 
loser's chips go into the bank, and the other player retains his or her 
chips. 

If one player throws a winning throw, and the other a non-rank- 
ing combination, the winner gets his own chips back, as well as those 
bet by the loser. If, however, one player throws a winning combina- 
tion, and the other a losing .combination, the bank contributes the 
same number of chips as have been bet in total. The game continues 
until either player, or the bank, runs out of chips. The player holding 
the maximum number of chips at this point wins. Note that this way 
of distributing the wins and losses is not the same as BARBOOTH 
when played as a ‘professional’ gambling game, but is a pay-off 
scheme which is relatively easy to computerize, and makes for an 
interesting game. 


FIVE THOUSAND: There are no prizes for guessing that the first 
player to score over 5000 points in this game is the winner. Played 
with as many players as you like, all you'll need in the way of game 
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equipment is five six-sided dice. Each player takes it in turn to throw 
the five dice, and scoring is carried out in the following way: 


260 





° À 5 is worth 100. 

* À 2 is worth 50. 

° Three 5's thrown in one go are worth 1000. 
° Three 2's thrown in a go score 500. 


° Three of a kind (apart from 2's and 5's) are worth 100 times 
their value (that is, three 1's are worth 100 points, and three 6's 


are worth 600). 

° If the sequence 1, 2, 3, 4, and 5 is thrown in a single go, this 
scores 1500. 

° 2, 3, 4, 5, and 6 in one throw are worth 2000 points. 


Note that 4's and 6's do not score in this game, except as part of a 


sequence. Once you've thrown, you can—if you like—throw the non- 


scoring dice again. However, if the next throw gains no score, the turn 


ends, and the overall score for the throw is zero. So long as a scoring 
throw has been made, any dice "left over" can be thrown. 

The game rewards the slow and careful player with a reasonable 
score, but gives him or her no chance against a player who decides to 
take a chance and try to get a massive score in a single throw. 


Card Games 


Once you've worked out a routine to get the computer to hold, 
shuffle, and deal the cards you have the raw bones of a host of 





games. Any book of card games will give you more ideas than you can 
possibly cope with. Here are a few to start you off: 


TRENTE AND QUARANTE: This game, which originated in 17th 
century Europe, is also known as ROUGE ET NOIR. Six decks of 
cards are used in the casino version, but it works well with a single 
deck. The cards are dealt into two rows, with the total of each row 
being examined after each row has had an additional card. Face cards 
(jack, queen, king) count as ten, with all other cards (including the 
ace) counting as their face value. The moment the total of a row 
equals or exceeds 31, no more cards are added to that row. However, 
the dealer keeps adding to the other row until it, too, equals or ex- 
ceeds 31. Тһе first row is called “black,” regardless of the suits of the 
cards involved, and the second row is “red.” 

You can bet that, at the end, the red row or the black row total 
will be closer to 31. You can also bet that the color of the first card to 
be dealt will match the color name of the winning row. All bets are 
made against the bank, and winners receive their bet back, plus that 
amount again (odds of one to one). If both rows equal 31, the bank 
takes half the stake and returns the rest to the player. 
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| | CARD CRAPS: This game was devised to get around laws passed by PUT AND TAKE: This gambling game uses an eight-sided top 


ІШ some US States which outlawed сгарв played with dice. You use а which is spun. The | : “at : а 
|| ; ағыс ыса . game begins with all players having 1 i 
||| special deck of 48 cards, made up from the aces, 2's, 3's, 475, 5%, and 30 in the pot. The players take it in veo y wo Diet psa im 
| | 6%, from two decks of cards. The game follows the standard rules of ing the instructions which come up on the top— put chir : siqaq y- 
||| craps (which аге similar to those used іп the game SEVEN/ELEVEN or take them out. A player is out when he or she ru а ойр ae 
M in this book). | and the game ends when the pot is em Ме i nianus | 

| Іп its simplified form, without the somewhat complex betting | the sides of the top аге: pot is empty. The instructions written on 
|| combinations, you play ав follows: 

° PUT ONE 

| ° А total of 2, 3 ог 12 is “сгарз” апа Ше dealer loses, passing Ше : 

| cards to the next player % деді. | ТАКЕ ONE 

||: ° РОТ THREE 


|| ° А total of 7 or 11 is a "natural" and the dealer wins. 
||| | | | | DE ч * TAKE THREE 
|| ° Any other number (4, 5, 6, 8, 9, or 10) is the player's “point” 

and he or she must continue dealing in pairs until the point is | * PUT FOUR 
dealt again, at which point the dealer wins. However if a 7 is | 


dealt before the point is obtained, the dealer loses. | * ӘКЕ FOUR 
| AH ES * PUT ALL 
I ! : Thi | t огегиппе | , | 
| THREE CARD BRAG is game was the forerunner of poker, and © TAKE ALL 


| ав its name suggests, it is played with hands of three, rather than five, 


| cards. Неге аге Ше winning combinations, ranked from highest to à Е ; | 
| E 5 | BOULE: This is а simplified form of roulette which appeared in the 


| lowest: 
| 18th century. It is often found in European casinos. The wheel is 
‚ “Pyle” thres of a kind divided into 18 segments, numbered from one to nine, twice. You can 
bet on the winning number, whether it will be a red or a black num- 
ber, even or odd, high or low. Except for the fives on the wheel, which 
ата chess aidan secuence | are usually yellow, the reds and blacks alternate, so that there is, for | 


“Опа bike,” three іп sequence from the same suit 


а. in а) 
за — —« 


= = SS aaaea 
e 





lu | 
Ë “ Do | example, а red six and а black six, а гей піпе апа а black піпе апа ѕо | 

| | = | 11 и 3 | | 

1 Flush," three cards from the same suit on. A "high" number is above five, while *low" numbers are below it. | 

| * “Pair,” two of a kind | If you bet successfully on a single number, you'll be paid at seven to | 
ІШ . “High card" | опе, with а опе to опе return on the “characteristic” of a number (such | | 
1 THE as its being “high” or *odd"). | 
ТІ | | 
! | | 


n А normal deck is used, and aces rank high, except for “on a bike" and | 
| "run," when 3, 2, ace beats ace, king, queen. You can vary Ше game | | 

Hi by making it SEVEN CARD BRAG, in which the players split their | | 
ТІ seven cards into two three-card hands of their choice, or NINE CARD | 
| BRAG, when three hands аге created. | 





|| 

||| | 

||. ACE-DEUCE-JACK: This is a simple game, heavily loaded in the | | | 
| dealer's favor, in which players bet on the likelihood that the next | 
| D card which appears will be an ace, a two (a "deuce"), or a jack. | 
| 
| 
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Accumulator—part of the computer's logic unit which stores the inter- 
mediate results of computations 


ТТ 


ШШ 


| 1 


ШІЛІГІ Туы» 


Ши 
mI 


ig a И 
E =a ERA = 


MEE c. 
иа т — 
—Y 





j | fa || i EN ҮЙ ys ER SI LAIT тола 2 | 
||| МЕШЕЛ ИТАЛИЯНЫ М | 
||| н г = КЕ а мати а ER п ET YS | 
i = | 





| | | Address—a number which refers to a location, generally in the com- 
ІШ | puter's memory, where information is stored | | 


| | Algorithm—the sequence of steps used to solve а problem 


lu: | 
|| Alphanumeric—generally used to describe а keyboard, апа signifying | | 
n | that the keyboard has alphabetical and numerical keys. À numeric | 
| | keypad, by contrast, only has keys for the digits one to nine 


| | | а 
| 264 | 265 ||| 





APL—this stands for Automatic Programming Language, a language 


| | | developed by Туегзоп іп the early 19606, which supports а large set of 


operators and data structures. It uses a non-standard set of characters 


I Application software—these are programs which are tailored for a 


M ^ specific task, such as word processing, or to handle mailing lists 


ASCII—stands for American Standard Code for Information Inter- 
change. This is an almost universal code for letters, numbers, and 
symbols 
Assembler—this is a program which converts another program writ- 
— ten in an assembly language (which is a computer program in which a 
single instruction, such as ADD, converts into a single instruction for 
the computer) into the language the computer uses directly 
BASIC-— stands for Beginner's All-purpose Symbolic Instruction 
|| Code, the most common language used оп microcomputers. It is easy 
ul to learn, with many of its statements being very close to English 
" Batch—a group of transactions which are to be processed by a com- 
D. puter in one lot, without interruption by an operator 
| Baud—a measure of the speed of transfer of data. It generally stands 
|| for the number of bits (discrete units of information) рег second 


|| Вепсћтагк—а test which is used to measure some aspect of the рег- 

E ^ formance of a computer, which can be compared to the result of run- 

|| ning а similar test оп а different computer 

|| Біпагу--а system of counting іп which there аге only two symbols, 0 
| and 1 (as opposed to the ordinary decimal system, in which there are 

| ten symbols, 0, 1, 2, 3, 4, 5, 6, 7, 8, and 9). Your computer "thinks" in 

| binary 

| Boolean Algebra—the algebra of decision-making and logic, devel- 

| ' oped by English mathematician George Boole, and at the heart of 

" your computer's ability to make decisions 

|||. Вооівігар--а program, run into the computer when it is first turned 

|| оп, which puts the computer into the state where it сап accept апа 

| | understand other programs 

| . Buffer—a storage mechanism which holds input from a device such as 

keyboard, then releases it at a rate which the computer dictates 


| | Вир—ап error in a program 
| || Вив--а group of electrical connections used to link a computer with 


| | an ancillary device, or another computer 
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Byte—the smallest group of bits which makes up a computer word. 
Generally a computer is described as being "8 bit" or "16 bit," 
meaning the word consists of a combination of eight or sixteen zeros 
or ones i 


Central Processing Unit (CPU)—the heart of the computer, where 
arithmetic, logic, and control functions are carried out 


Character code—the number of ASCII (see ASCII) which refers to a 


~ particular symbol, such as 32 for a space and 65 for the letter “А” 


COBOL — stands for Common Business Oriented Language, a stan- 
dard programming language, close to English, which is used primarily 
for business 


Compiler—a program which translates a program written in a high 
level (human-like) language into a machine language which the com- 
puter understands directly 


= Concatenate—to add (adding two strings together is known as “con- 
сағепабоп”) 
CP/M—stands for Control Program/Microcomputer, an almost uni- 


versal disk operating system developed and marketed by Digital Re- 
search, Pacific Grove, California 





— Data—a general term for information processed by a computer 


- Database—a collection of data organized to permit rapid access by 
computer 


- Debug—to remove bugs (errors) from a program 


T Disk—a magnetic storage medium (further described as a “hard disk,” 
floppy disk," or even "floppy") used to store computer information 
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ШІ 
||| 
n M | 
n and programs. The disks resemble, to a limited extent, 45 rpm sound Floppy disk—see “disk” | 
| ||| records, апа аге generally eight, five апа а quarter, ог three inches іп EUR L | | 
1 diameter. Smaller “microdisks” аге also available for some systems sari p es layout of program structure and flow, using | 
d | | | I | | | .. Various shapes, such as a rectangle with sloping sides for a с I! 
| - Documentation—the written instructions and explanations which ac- action, and a diamond for a computer алыса А Bosco: Е | 
| i . с - | 
| 


1 company а program ally written before any lines of program are entered into the computer | 
| 


DOS—stands for Disk Operating System (and generally pronounced | FORTRAN—a high level computer langu | 
a Ы Р а | м ап >" 3 i in 4 
| *doss"), the versatile program which allows a computer to control а | entific work (from FORmula РАНЕ generally used for sci | 
| disk system Gate eae е || 
| f | n rate—a computer “component” which makes decisio. | | 
Dot-matrix printer—a printer which forms the letters and symbols by — circuit to flow in one direction or another, depen ruin бөр шк ы | 

a collection of dots, usually оп ап eight Бу eight, ог seven Бу five, grid | to Бе satisfied | m | | 
| || 
| Double-density—adjective used to describe disks when recorded GIGO—acronvm for "бал 4 | . | 
| ronym Гог "Garbage In Garbage Out," suggesting th | 
|| i Ф: i м S ats ИР | | a | , g that if | 
| using a special technique which, as the name suggests, doubles the rubbish or wrong data is fed into a computer, the result of its process- | 


| 
|| amount of storage the disk сап provide ing of such data (the output) must also be rubbish | 


||| . Dynamic memory—computer memory which requires constant re- | 

| | charging to retain its contents | ра | | 
1 EPROM-—stands for Erasable Programmable Read Only Memory, а 
|| device which contains computer information іп а semi-permanent 
form, demanding, sustained exposure to ultra-violet light to erase its 
contents 

Error messages—information from the computer to the user, some- 








times consisting only of numbers or a few letters, but generally of a 
phrase (such as *Out of memory") which points out a programming or 
operational error which has caused the computer to halt program ex- 


ІШ ecutions "t 
| 





|| Field—A collection of characters which form а distinct group, such as GI -" 
! Hn | | | bal—a set of conditions which affect | i | | 
| nfi T x nhu пе а . a f | 11 rt of | 21 ns which affects the entire program lle 

| an identifying code, a name or a date; a field is generally part ot a — “global” as opposed! В icedi prog is called x 


||  Ейе—А group of related records which аге processed together, such 
1) as an inventory file or a student file 


|| | Firmware— The solid components of а computer system are often 
| called the “hardware,” the programs, in machine-readable form on 


| 
| | гесога : 
— Hard copy— information dumped to paper by a printer 


баны Седи solid parts of the computer (see “software” and “firm- 
ware | 


Hexadecimal—a counting system much beloved by machine code | 
programmers because it is closely related to the number storage meth- | 
ods used Бу computers, based on the number 16 (ав opposed to our | 
“ordinary” number system which is based on 10) | | 


|| disk ог cassette, аге called the “software,” апа programs which аге 

|| hard-wired into a circuit are called "firmware." Firmware сап be al- 

| tered, to a limited extent, by software in some circumstances 

|| _ Flag—this is an indicator within a program, with the “state of the | ра Нех pad—-a keyboard, somewhat like a calculator, which is used for 
|| flag” (i.e., the value it holds) giving information regarding a particular direct entry of hexadecimal numbers | 


condition - High-level languages—programming languages which are close to En- | | 
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оа а dedicated television screen for use as a computer dis- 
able i зар по и apparatus; (b) the information within а | 
с uter which enables it to understand and ex | Т 1 | 
с execute program іп- | 


glish. Low-level languages are closer to those which the computer un- 

ІІ derstands. Because high-level languages һауе to Бе compiled into а | 

ІІ form which (һе computer сап understand before they аге processed, = 

B high-level languages run more slowly than do their low-level counter- 

|| parts M | 
otherboard—a unit, generally external i 

 Input—any information which is fed into a program during execution | ditional “Боагав” (circuits) to d к көке Зе) а ЕСКЕ pa | | 
ais vide т 

| 


H 

| 

| I/O—stands for Input/Output port, a device the computer uses to 
communicate with the outside world 

Instruction—an element of programming code, which tells the com- 
| - puter to carry out a specific task. An instruction in assembler lan- 
| guage, for example, is ADD which (as you've probably guessed) tells 
|| the computer to carry out ап addition 
Interpreter—converts the high-level (“human-understandable”) pro- 
gram into a form which the computer can understand 


Joystick—an analog device which feeds a signal into a computer 
which is related to the position which the joystick is occupying; gener- 





|| ally used іп games programs 

| 

|| Kilobyte—the unit of language measurement; опе kilobyte (generally 

|| abbreviated as K) equals 1024 bits | 

| . Line printer—a printer which prints a complete line of characters at | 

| опе time | 

| | cts T | 
n -le nguage—a language which is close to that us ithin th faciliti | i с ; « | 

| . Low-level la p Та Шр wh at used within the | acilities (such as high-resolution graphics, or "robot control") which | 

| computer (see “high-level language") | are not provided with the standard machine | Nu _ 
||| Machine language—the step below а low-level language; the lan- | Mouse—a control unit, sli ва 
| | lgu | А ; | | t Fes : Ж 
||| џаре which the computer understands directl 15 rolled wi ЕУ са папа Baer cigarettes, which | 
f guag p | y $ rolled over the desk, moving an on-screen cursor in parallel to se- | 
| Mainframe—the term for "giant" computers such as the ІВМ 370. Mi uon and make decisions within a program. "Mouses" work | 
| | Computers аге also classed ав minicomputer апа microcomputer (such | tè jt pura the action of their wheels, or by reading a grid pat- | 

1 as the computer you own) | rn on the surface upon which they are moved | 
| || Memory—the device ог devices used by a computer to hold informa- | Network—a group of computers working in tandem | 
MN ~ tion and programs being currently processed, and for the instruction — Numeric pad—a devi imari | 
| ogr п seq, ' > рас evice primarily for ente ic in i 

г set fixed within а computer which tells it how to carry out the de- Into a computer, similar а Sos s enering umen a oa | 

|| | mands of the program. There аге basically two types of memory (see Octal ; | 

| “RAM” апа “РОМ”) |. 4 P Ba i system based on eight (using the digits 0, 1, 2 di | 

||| - Microprocessor—the “chip” which lies at the heart of your computer. = О ; TET | 

| n n-line—device which is under the direct control of the computer | 


|| This does the “thinking” 
| Modem-—stands for MOdulator/DEModulator, and is а device which | — Operating system—this is the "big boss" program or series of pro- | 
| 


| | allows one computer to communicate with another via the telephone 
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grams within the computer which controls Ше computer's operation, 

doing such things as calling up routines when they are needed and 

assigning priorities 

Output—any data produced by the computer while it is processing, 

whether this data is displayed on the screen or dumped to the printer, 

or is used internally 

Pascal—a high level language, developed in the late 1960s by 
Niklaus Wirth, which encourages disciplined, structured programming 
Port—an output or input “hole” in the computer, through which data 
is transferred 

Program—the series of instructions which the computer follows to 
carry out a predetermined task 

PILOT—a high-level language, generally used to develop computer 
programs for education 

RAM-—stands for “Random Access Memory,” and is the memory on 


board the computer which holds the current program. The contents of 
RAM сап be changed, while the contents of ROM (Read Only Mem- 


ory) cannot be changed under software control 

Real-time—when a computer event is progressing in line with time in 
the “real world," the event is said to be occurring in real time. Ап 
example would be a program which showed the development of a 
colony of bacteria which developed at the same rate that such a real 
colony would develop. Many games which require reactions in real 
time have been developed. Most "arcade action" programs occur in 
real time 


Refresh— The contents of dynamic memories (see "memory") must 
receive periodic bursts of power in order for them to maintain their 
contents. The signal which "reminds" the memory of its contents is 


called the "refresh signal" 

Register—a location in computer memory which holds data 

Reset—a signal which returns the computer to the point it was in 
when first turned on 

ROM —ѕее “RAM” 


RS-232—a standard serial interface (defined by the Electronic Indus- 
tries Association) which connects a modem and associated terminal 
equipment to a computer 


S-100 bus—this is a standard interface (see "RS-232") made up of 
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100 parallel common communication lines which are used to connect 
circuit boards within microcomputers 


SNOBOL—a high-level language, developed by Bell Laboratories 
which uses pattern recognition and string manipulation | 


Software—the program which the computer follows (see *firmware") 


Stack—the end point of a series of its whi 
| < | | : events which аге | n a las 
in, first out basis accessed on a last 


Subroutine—a block of code, or program, which is called up a number 


- of times within another program 


_Syntax—as in human languages, the syntax is the structure rules 


which govern the use of a computer language 


Systems software— sections of code which carry out administrative 
tasks, or assist with the writing of other programs, but which are not 
actually used to carry out the computer's final task 


ан printer—a device which prints the output from the computer 
«n ТШ qas paper. Although thermal printers are quieter than 
other printers, the output is not always easy to read, nor i | 
paper easy to store У | dures 


Time-sharing— this term is used to refer to a large number of users 
on independent terminals, making use of a single computer which 
divides its time between the users in such a way that each of them 
appears to have the “full attention" | 
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Turnkey system—a computer system (generally for business use) 
which is ready to run when delivered, needing only the "turn of a 
key" to get it working 


Volatile memory—a memory device which loses its contents when the 
power supply is cut off (see *memory," "refresh," "ROM," and 
«Tre AM P) 


Word processor—a dedicated computer (or a computer operating a 
word processing program) which gives access to an "intelligent type- 
writer" with a large range of correction and adjustment features 
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VIDEO DISPLAY WORKSHEET (MODE 0) 
701FH (28703) 


71FFH (29183) 





CHARACTER 
@ (at sign) 


A 
B 
C 


ASCII 
64 


66 


| (exclamation point) 65 


CHARACTER 
“ (quote) 


(Space) 


ASCII CODE TABLE 


CODE 
32 
33 


34 


А5СП 
35 
36 
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[ (open square 
bracket) 

N (back slash) 

] (close square 
bracket) 


CW OL ул = йш әки изн 


| (ир аггоуу) 
-- (back arrow) 


95985898 


68 
69 
70 
71 
74 
75 
76 
77 
78 
79 
80 
81 
82 
91 
92 
93 
94 
95 


(period) 


( (open parenthesis} 72 
/ (slant) 


) (close parenthesis} 73 


* (asterisk) 


* (number or pound 67 
+ (plus) 


& (ampersand) 
' (apostrophe) 
, (comma) 
— (minus) 


sign) 
$ (doloar) 
?6 (percent) 


; (semicolon) 
> (greater than) 
? (question mark) 


: (colon) 
« (less than) 
(equals) 


€ =— Сч с) TH OR ос 


37 
38 
39 
4f 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
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VIDEO DISPLAY WORKSHEET (MODE 1) 
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CHARACTER CODE 


Relative 





$ romeo PEN 
š OG me C E mpu 
° Cram БЕБА а ОБ 


за Спаса па 
° Cam DEN 
Дега. ае ИТ | 
“алата қылығы 
Сост E са нова ки 


BF СЫМ О 


R 


48 64 80 96 112 
 INVERSE 


16 32 
NORMAL 


= 
Ф 
wa 
Зет 
“- 
o 


BUFF 

CY AN 
MAGENTA 
ORANGE 


BF 
CN 


G — GREEN 
Y — YELLOW 
B - BLUE 

Н — RED 
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THE ULTIMATE VZ300 GAMES BOOK! 
Here's a collection of more than 40 incredible games written just for you and 
your Dick Smith VZ300 Personal Colour Computer. 


In this book, you'll get all these, and more: 


ADVENTURE GAMES 


Battle with the forces of evil, rule as a duke, and search for hidden treasure in 
THE DUKE OF DRAGONFEAR and STRONGHOLD OF THE DWARVEN 
LORDS 


SIMULATION GAMES 


Control the fate of an entire planet or become the boss of your own firm in 


MISTRESS OF XENPHOBIA and CHAIRMAN OF THE BOARD 
BRAIN GAMES 


Unlock the twisted cube in CUBIC or race to locate an atom within the 


CYCLOTRON 


ARTIFICIAL INTELLIGENCE 


Challenge your VZ300 to break your code or let it write you a whole book of 
poetry in ELECTRONIC BRAIN and AMANUENSIS 


BOARD GAMES 
Your VZ300 is a willing and clever opponent in classic board games including 


OTHELLO, CHECKERS, AWARI and GOMOKU 
SPACE GAMES 


Land your trusty VZ space probe on the moon or ћаће an intergalactic war with 
alien creatures іп MOONLANDER апа HYPERWAR 


PLUS MASTER THE SKILLS TO DEVELOP, MODIFY 
AND CREATE YOUR OWN VZ300 GAMES 


WARNING: 
$ This book may be habit-forming fun! 
X-7326 


